From 36021097e17ab1cfa971564cb70128d704e88f2d Mon Sep 17 00:00:00 2001
From: Ben Sima <ben@bsima.me>
Date: Mon, 19 Oct 2020 17:04:16 -0400
Subject: Remove $ from Alpha

---
 Que/Website.hs | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

(limited to 'Que/Website.hs')

diff --git a/Que/Website.hs b/Que/Website.hs
index 7eb3ae6..623173b 100644
--- a/Que/Website.hs
+++ b/Que/Website.hs
@@ -38,8 +38,8 @@ main = do
     [src, ns] -> return (src, Text.pack ns)
     _ -> Exit.die "usage: que-website <srcdir> [namespace]"
   mKey <- getKey ns
-  putText $ "serving " <> Text.pack src <> " at " <> ns
-  run mKey ns $
+  putText <| "serving " <> Text.pack src <> " at " <> ns
+  run mKey ns <|
     Sources
       { index = src </> "index.md",
         client = src </> "client.py",
@@ -98,7 +98,7 @@ run key ns Sources {..} = Async.runConcurrently actions |> void
     toHtml :: FilePath -> IO ByteString
     toHtml md =
       BS.pack
-        <$> Process.readProcess
+        </ Process.readProcess
           "pandoc"
           [ "--include-in-header",
             style,
@@ -112,7 +112,7 @@ run key ns Sources {..} = Async.runConcurrently actions |> void
           []
 
 serve :: Maybe Key -> Namespace -> Text -> ByteString -> IO ()
-serve Nothing "pub" path content = runReq defaultHttpConfig $ do
+serve Nothing "pub" path content = runReq defaultHttpConfig <| do
   _ <-
     req
       POST
@@ -120,9 +120,9 @@ serve Nothing "pub" path content = runReq defaultHttpConfig $ do
       (ReqBodyBs content)
       ignoreResponse
       mempty
-  liftIO $ return ()
+  liftIO <| return ()
 serve Nothing p _ _ = panic <| "no auth key provided for ns: " <> p
-serve (Just key) ns path content = runReq defaultHttpConfig $ do
+serve (Just key) ns path content = runReq defaultHttpConfig <| do
   let options =
         header "Authorization" (encodeUtf8 key) <> responseTimeout maxBound
   _ <-
@@ -132,4 +132,4 @@ serve (Just key) ns path content = runReq defaultHttpConfig $ do
       (ReqBodyBs content)
       ignoreResponse
       options
-  liftIO $ return ()
+  liftIO <| return ()
-- 
cgit v1.2.3