diff options
| author | Ben Sima <ben@bsima.me> | 2020-10-19 17:04:16 -0400 |
|---|---|---|
| committer | Ben Sima <ben@bsima.me> | 2020-10-19 17:04:16 -0400 |
| commit | 36021097e17ab1cfa971564cb70128d704e88f2d (patch) | |
| tree | bd68ceeadc84c99332fb4be0ed4e9a32e662e9e0 /Que/Website.hs | |
| parent | a6514d11cdec3f0bdfba6929bf73cfd77a499e25 (diff) | |
Remove $ from Alpha
Diffstat (limited to 'Que/Website.hs')
| -rw-r--r-- | Que/Website.hs | 14 |
1 files changed, 7 insertions, 7 deletions
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 () |