From 6eaaf3d8ce6025932990de6fa697d14c9651be76 Mon Sep 17 00:00:00 2001
From: Ben Sima <ben@bsima.me>
Date: Thu, 24 Dec 2020 14:24:16 -0500
Subject: linting fixes and cleanup

---
 Biz/Ibb/Move.hs | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

(limited to 'Biz/Ibb/Move.hs')

diff --git a/Biz/Ibb/Move.hs b/Biz/Ibb/Move.hs
index 0dec4e5..2135f85 100644
--- a/Biz/Ibb/Move.hs
+++ b/Biz/Ibb/Move.hs
@@ -27,8 +27,9 @@ import Network.RemoteData
 move :: Action -> Model -> Effect Action Model
 move Nop m = noEff m
 move (HandleRoute u) m = m {uri = u} <# pure Nop
-move (ChangeRoute u) m = m <# do
-  pushURI u >> pure Nop
+move (ChangeRoute u) m =
+  m <# do
+    pushURI u >> pure Nop
 move FetchPeople m = m <# (SetPeople </ fetchPeople)
 move (SetPeople ps) m = noEff m {people = ps}
 
@@ -36,9 +37,9 @@ fetchPeople :: IO (WebData [Core.Person])
 fetchPeople = do
   mjson <- contents </ xhrByteString req
   case mjson of
-    Nothing -> pure $ Failure "could not read from server"
+    Nothing -> pure <| Failure "could not read from server"
     Just a ->
-      pure $ fromEither $ either (Left . ms) pure $ eitherDecodeStrict a
+      pure <| fromEither <| either (Left <. ms) pure <| eitherDecodeStrict a
   where
     req =
       Request
-- 
cgit v1.2.3