diff options
| author | Ben Sima <ben@bsima.me> | 2021-01-29 02:37:14 -0500 |
|---|---|---|
| committer | Ben Sima <ben@bsima.me> | 2021-01-29 03:22:01 -0500 |
| commit | b289dee25ad8ce4c2622fadb2f4c31fb90914b39 (patch) | |
| tree | 5511da780cdabbb98c8fbe01f03997d3263e7880 /Biz/Que/Host.hs | |
| parent | 42c7614b6a4bd7504e9bf31e0882db58b85857bc (diff) | |
Lint 'return' into 'pure', replace bind operator
Diffstat (limited to 'Biz/Que/Host.hs')
| -rw-r--r-- | Biz/Que/Host.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/Biz/Que/Host.hs b/Biz/Que/Host.hs index cbf4bfd..e40b2e0 100644 --- a/Biz/Que/Host.hs +++ b/Biz/Que/Host.hs @@ -63,7 +63,7 @@ move :: Cli.Arguments -> IO () move _ = Exception.bracket startup shutdown <| uncurry Warp.run where startup = - Envy.decodeWithDefaults Envy.defConfig >>= \c -> do + Envy.decodeWithDefaults Envy.defConfig +> \c -> do sync <- STM.newTVarIO initialAppState let runActionToIO m = runReaderT (runApp m) sync waiapp <- Scotty.scottyAppT runActionToIO <| routes c @@ -207,7 +207,7 @@ streamQue q write _ = loop q where loop c = Go.read c - >>= (write <. Builder.byteStringInsert) + +> (write <. Builder.byteStringInsert) >> loop c -- | Gets the thing from the Hashmap. Call's 'error' if key doesn't exist. @@ -241,11 +241,11 @@ app = lift -- | Get something from the app state gets :: (AppState -> b) -> App b -gets f = ask >>= liftIO <. STM.readTVarIO >>= return </ f +gets f = ask +> liftIO <. STM.readTVarIO +> return </ f -- | Apply a function to the app state modify :: (AppState -> AppState) -> App () -modify f = ask >>= liftIO <. atomically <. flip STM.modifyTVar' f +modify f = ask +> liftIO <. atomically <. flip STM.modifyTVar' f -- | housing for a set of que paths type Namespace = Text.Lazy.Text |