This commit is contained in:
Nikita Volkov 2014-10-29 14:24:57 +04:00
parent 5fb7f48f12
commit ec667045bd

View File

@ -260,7 +260,7 @@ single s =
-- | -- |
-- Execute a @SELECT@ statement, -- Execute a @SELECT@ statement,
-- and produce a vector of results. -- and produce a list of results.
list :: Backend b => RowParser b r => Backend.Statement b -> Tx b s [r] list :: Backend b => RowParser b r => Backend.Statement b -> Tx b s [r]
list s = list s =
Tx $ ReaderT $ \c -> do Tx $ ReaderT $ \c -> do