src: Lib: Use infix fmap

src/Lib.hs

@@ -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