1 files changed, 5 insertions, 5 deletions
diff --git a/Biz/Que/Site.hs b/Biz/Que/Site.hs
index c2245d6..3e456da 100644
--- a/Biz/Que/Site.hs
+++ b/Biz/Que/Site.hs
@@ -111,11 +111,11 @@ run key ns Sources {..} = Async.runConcurrently actions |> void
     actions =
       traverse
         Async.Concurrently
-        [ forever <| toHtml index >>= serve key ns "index",
-          forever <| toHtml quescripts >>= serve key ns "quescripts",
-          forever <| BS.readFile client >>= serve key ns "client",
-          forever <| toHtml tutorial >>= serve key ns "tutorial",
-          forever <| toHtml apidocs >>= serve key ns "apidocs"
+        [ toHtml index >>= serve key ns "index" |> forever,
+          toHtml quescripts >>= serve key ns "quescripts" |> forever,
+          BS.readFile client >>= serve key ns "client" |> forever,
+          toHtml tutorial >>= serve key ns "tutorial" |> forever,
+          toHtml apidocs >>= serve key ns "apidocs" |> forever
         ]
     toHtml :: FilePath -> IO ByteString
     toHtml md =