nikita-volkov/hasql
1
1
Fork 0
mirror of https://github.com/nikita-volkov/hasql.git synced 2024-11-23 02:35:33 +03:00
Code Issues Projects Releases Wiki Activity

Inlining

Browse Source
This commit is contained in:
Nikita Volkov 2015-11-21 17:54:46 +03:00
parent 05dc480ab9
commit 7760d4d944
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
library/Hasql.hs
View File

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