Now it is smaller

dtekcth · Oct 23, 2024 · 683ab60 · 683ab60
1 parent 1c45697
commit 683ab60
Showing 1 changed file with 5 additions and 5 deletions.
diff --git a/app/Main.hs b/app/Main.hs
@@ -109,9 +109,9 @@ webserver
   -> MVar () -- ^ Update signal
   -> IO ()
 webserver Config{_cPort=webserverPort} viewRef upd =
-  run webserverPort $ foldr ($) (notFound (send $ html "not found..."))
-    [ middleware . get "/"  (liftIO (readIORef viewRef) >>= send . html . encodeUtf8 . render)
-    , middleware . get "/r" (liftIO (tryPutMVar upd ()) >> send (redirect302 "/"))
+  run webserverPort $ foldr
+    (logStdout . static $(embedDir "static") <$>)
+    (notFound (send $ html "not found..."))
+    [ get "/"  (liftIO (readIORef viewRef) >>= send . html . encodeUtf8 . render)
+    , get "/r" (liftIO (tryPutMVar upd ()) >> send (redirect302 "/"))
     ]
- where
-   middleware = logStdout . static $(embedDir "static")