Fix the "list-t" dep

This commit is contained in:
Nikita Volkov 2014-11-29 22:23:29 +03:00
parent 93a1185a91
commit 746b934bbe
2 changed files with 7 additions and 6 deletions

View File

@ -1,7 +1,7 @@
name:
hasql
version:
0.3.0
0.4.0
synopsis:
A minimalistic general high level API for relational databases
description:
@ -105,7 +105,7 @@ library
bytestring == 0.10.*,
text >= 1.0 && < 1.3,
-- control:
list-t >= 0.2.4 && < 0.4,
list-t >= 0.3 && < 0.4,
monad-control == 0.3.*,
transformers-base == 0.4.*,
-- errors:

View File

@ -279,12 +279,13 @@ tx m t =
newtype TxListT s m r =
TxListT (ListT.ListT m r)
deriving (Functor, Applicative, Alternative, Monad, MonadTrans, MonadPlus,
Monoid, ListT.ListMonad)
Monoid, ListT.MonadCons)
instance ListT.ListTrans (TxListT s) where
instance ListT.MonadTransUncons (TxListT s) where
uncons =
unsafeCoerce
(ListT.uncons :: ListT.ListT m r -> m (Maybe (r, ListT.ListT m r)))
(liftM . fmap . fmap) (unsafeCoerce :: ListT.ListT m r -> TxListT s m r) .
ListT.uncons .
(unsafeCoerce :: TxListT s m r -> ListT.ListT m r)
-- * Statements execution