haskell/esqueleto
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix test

Browse Source
This commit is contained in:
Eric Easley 2016-04-04 11:44:58 -07:00
parent a2d504ae7b
commit 72d2be3e6a
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
test/Test.hs
View File

@ -1396,10 +1396,11 @@ main = do
insert' :: ( Functor m insert' :: ( Functor m
, PersistStore (PersistEntityBackend val) , BaseBackend backend ~ PersistEntityBackend val
, PersistStore backend
, MonadIO m , MonadIO m
, PersistEntity val ) , PersistEntity val )
=> val -> ReaderT (PersistEntityBackend val) m (Entity val) => val -> ReaderT backend m (Entity val)
insert' v = flip Entity v <$> insert v insert' v = flip Entity v <$> insert v