From 7760d4d944194aa68f6d1d57c364945fde28008f Mon Sep 17 00:00:00 2001 From: Nikita Volkov Date: Sat, 21 Nov 2015 17:54:46 +0300 Subject: [PATCH] Inlining --- library/Hasql.hs | 3 +++ 1 file changed, 3 insertions(+) diff --git a/library/Hasql.hs b/library/Hasql.hs index 26dc9c2..c98ec04 100644 --- a/library/Hasql.hs +++ b/library/Hasql.hs @@ -164,10 +164,13 @@ data Query a b = deriving (Functor) instance Profunctor Query where + {-# INLINE lmap #-} lmap f (Query p1 p2 p3 p4) = Query p1 (contramap f p2) p3 p4 + {-# INLINE rmap #-} rmap f (Query p1 p2 p3 p4) = Query p1 p2 (fmap f p3) p4 + {-# INLINE dimap #-} dimap f1 f2 (Query p1 p2 p3 p4) = Query p1 (contramap f1 p2) (fmap f2 p3) p4