diff --git a/src/Lib.hs b/src/Lib.hs
index 0a69aff..689af73 100644
--- a/src/Lib.hs
+++ b/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