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
, PersistStore (PersistEntityBackend val)
, BaseBackend backend ~ PersistEntityBackend val
, PersistStore backend
, MonadIO m
, PersistEntity val )
=> val -> ReaderT (PersistEntityBackend val) m (Entity val)
=> val -> ReaderT backend m (Entity val)
insert' v = flip Entity v <$> insert v