mirror of
https://github.com/nikita-volkov/hasql.git
synced 2024-11-23 02:35:33 +03:00
Fix the "list-t" dep
This commit is contained in:
parent
93a1185a91
commit
746b934bbe
@ -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:
|
||||
|
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user