src: Lib: Use infix fmap

This commit is contained in:
Sanchayan Maity 2021-05-08 14:31:00 +05:30
parent 27ef8809b8
commit 277dc29645
1 changed files with 2 additions and 2 deletions

View File

@ -23,9 +23,9 @@ type DSL = F DSLMethod
interpretDSLMethod :: DSLMethod a -> IO a
interpretDSLMethod (LogMsg logger next) =
fmap next $ runLogger logger
next <$> runLogger logger
interpretDSLMethod (RunQuery conn squery sql next) =
fmap next $ runDB conn squery sql
next <$> runDB conn squery sql
runDSL :: DSL () -> IO ()
runDSL = foldF interpretDSLMethod