nikita-volkov/hasql
1
1
Fork 0
mirror of https://github.com/nikita-volkov/hasql.git synced 2024-12-28 04:57:14 +03:00
Code Issues Projects Releases Wiki Activity

Fix the bug

Browse Source
This commit is contained in:
Nikita Volkov 2016-01-24 19:52:33 +03:00
parent b38a881b50
commit 24e31161c7
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
library/Hasql/Private/IO.hs
View File

@ -59,9 +59,14 @@ initConnection c =
{-# INLINE getResults #-}
getResults :: LibPQ.Connection -> Bool -> ResultsDecoders.Results a -> IO (Either ResultsDecoders.Error a)
getResults connection integerDatetimes des =
getResults connection integerDatetimes decoder =
{-# SCC "getResults" #-}
ResultsDecoders.run (des <* ResultsDecoders.dropRemainders) (integerDatetimes, connection)
(<*) <$> get <*> dropRemainders
where
get =
ResultsDecoders.run decoder (integerDatetimes, connection)
dropRemainders =
ResultsDecoders.run ResultsDecoders.dropRemainders (integerDatetimes, connection)
{-# INLINE getPreparedStatementKey #-}
getPreparedStatementKey ::