From 277dc2964562f416e85289e53188520df56b9e4f Mon Sep 17 00:00:00 2001
From: Sanchayan Maity <sanchayan@sanchayanmaity.net>
Date: Sat, 8 May 2021 14:31:00 +0530
Subject: [PATCH] src: Lib: Use infix fmap

---
 src/Lib.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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