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

Remove SCCs

Browse Source
This commit is contained in:
Nikita Volkov 2014-10-27 15:19:57 +04:00
parent dc21a81d36
commit d4a6c0aebd
1 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
library/Hasql.hs
View File

@ -256,7 +256,6 @@ single s =
-- and produce a vector of results.
list :: Backend b => RowParser b r => Backend.Statement b -> Tx b s [r]
list s =
{-# SCC "list" #-}
Tx $ ReaderT $ \c -> do
m <- Backend.executeAndGetMatrix s c
traverse (either (throwIO . UnparsableRow) return . RowParser.parseRow) $ Vector.toList m
@ -271,7 +270,6 @@ list s =
-- so a 'NotInTransaction' error will be raised if you run it improperly.
stream :: Backend b => RowParser b r => Backend.Statement b -> TxListT s (Tx b s) r
stream s =
{-# SCC "stream" #-}
do
s <- lift $ Tx $ ReaderT $ \c -> Backend.executeAndStream s c
TxListT $ hoist (Tx . lift) $ do