Lint 'return' into 'pure', replace bind operator

3 files changed, 10 insertions, 10 deletions

diff --git a/Hero/Host.hs b/Hero/Host.hs
index fd010af..5496f27 100644
--- a/Hero/Host.hs
+++ b/Hero/Host.hs
@@ -106,7 +106,7 @@ move _ = bracket startup shutdown run
     run (cfg, app, _) = Warp.run (heroPort cfg) app
     prn = IO.hPutStrLn IO.stderr
     startup =
-      Envy.decodeEnv >>= \case
+      Envy.decodeEnv +> \case
         Left e -> Exit.die e
         Right cfg ->
           do
@@ -139,7 +139,7 @@ move _ = bracket startup shutdown run
                     :<|> wrapAuth appHostHandlers
                     -- fall through to 404
                     :<|> Tagged handle404
-            return
+            pure
               ( cfg,
                 serveWithContext
                   proxy
@@ -150,11 +150,11 @@ move _ = bracket startup shutdown run
     shutdown :: App -> IO ()
     shutdown (_, _, keep) = do
       Keep.close keep
-      return ()
+      pure ()
 
 upsertKey :: FilePath -> IO Crypto.JWK
 upsertKey fp =
-  Directory.doesFileExist fp >>= \exists ->
+  Directory.doesFileExist fp +> \exists ->
     if exists
       then Auth.readKey fp
       else Auth.writeKey fp >> Auth.readKey fp
@@ -229,7 +229,7 @@ type CssRoute = "css" :> "main.css" :> Get '[CSS] Text
 
 cssHandlers :: Server CssRoute
 cssHandlers =
-  return <. Lazy.toStrict <. Clay.render <| Typography.main <> Look.main
+  pure <. Lazy.toStrict <. Clay.render <| Typography.main <> Look.main
 
 type AuthRoute =
   "auth"
@@ -274,7 +274,7 @@ authHandler cookieSettings jwtSettings loginForm =
       mApplyCookies <- liftIO <| Auth.acceptLogin cookieSettings jwtSettings usr
       case mApplyCookies of
         Nothing -> throwError err401
-        Just applyCookies -> return <| applyCookies usr
+        Just applyCookies -> pure <| applyCookies usr
 
 -- | See also 'server' above
 type AllRoutes auths =
diff --git a/Hero/Keep.hs b/Hero/Keep.hs
index 744313b..10ef732 100644
--- a/Hero/Keep.hs
+++ b/Hero/Keep.hs
@@ -66,7 +66,7 @@ newComic :: Comic -> Update HeroKeep Comic
 newComic c = do
   keep <- get
   put <| keep {_comics = IxSet.insert c (_comics keep)}
-  return c
+  pure c
 
 getComics :: Int -> Acid.Query HeroKeep [Comic]
 getComics n = ask /> _comics /> IxSet.toList /> take n
diff --git a/Hero/Node.hs b/Hero/Node.hs
index e7eb687..a453a01 100644
--- a/Hero/Node.hs
+++ b/Hero/Node.hs
@@ -193,7 +193,7 @@ move ValidateUserPassword form =
     doLogin = do
       user <- getValue =<< Document.getElementById "user"
       pass <- getValue =<< Document.getElementById "pass"
-      sendLogin (ms user) (ms pass) >>= \case
+      sendLogin (ms user) (ms pass) +> \case
         Network.Success _ -> pure NoOp
         -- TODO: handle these error cases
         Network.Loading -> pure NoOp
@@ -202,7 +202,7 @@ move ValidateUserPassword form =
 
 fetchComics :: IO (Network.RemoteData MisoString [Comic])
 fetchComics =
-  Ajax.xhrByteString req /> Ajax.contents >>= \case
+  Ajax.xhrByteString req /> Ajax.contents +> \case
     Nothing ->
       pure <| Network.Failure "Could not fetch comics from server."
     Just json ->
@@ -231,7 +231,7 @@ sendLogin ::
         User
     )
 sendLogin u p =
-  Ajax.xhrByteString req /> Ajax.contents >>= \case
+  Ajax.xhrByteString req /> Ajax.contents +> \case
     Nothing ->
       pure <| Network.Failure "Could not send login request."
     Just json ->