tdd-refactor: rewrite to use invoke

autotaker · Jan 10, 2021 · da59dba · da59dba
1 parent ec9b6b4
commit da59dba
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/Auth.hs b/src/Auth.hs
@@ -1,8 +1,9 @@
 module Auth where
 
+import Control.Method (invoke)
 import Control.Monad.Trans.Maybe (MaybeT (MaybeT, runMaybeT))
 import Lens.Micro.Platform (Lens', makeLenses)
-import RIO (RIO, guard, view, (^.))
+import RIO (RIO, guard, (^.))
 import User (Password, User, Username, password)
 
 data UserRepository env = UserRepository
@@ -17,8 +18,7 @@ class HasUserRepository env where
 
 signin :: (HasUserRepository env) => Username -> Password -> RIO env (Maybe User)
 signin usernm passwd = runMaybeT $ do
-  method <- view (userRepositoryL . findByUsername)
-  user <- MaybeT $ method usernm
+  user <- MaybeT $ invoke (userRepositoryL . findByUsername) usernm
   guard $ (user ^. password) == passwd
   pure user