fraport/fradrive
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix: uniworxdb

Browse Source
This commit is contained in:
Gregor Kleen 2019-11-27 16:22:08 +01:00
parent ec24a04c9b
commit e5608d2d5b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
test/Database.hs
View File

@ -83,7 +83,7 @@ fillDb = do
AppSettings{ appUserDefaults = UserDefaultConf{..}, .. } <- getsYesod $ view appSettings AppSettings{ appUserDefaults = UserDefaultConf{..}, .. } <- getsYesod $ view appSettings
now <- liftIO getCurrentTime now <- liftIO getCurrentTime
let let
insert' :: PersistRecordBackend r (YesodPersistBackend UniWorX) => r -> YesodDB UniWorX (Key r) insert' :: (PersistRecordBackend r (YesodPersistBackend UniWorX), AtLeastOneUniqueKey r) => r -> YesodDB UniWorX (Key r)
insert' = fmap (either entityKey id) . insertBy insert' = fmap (either entityKey id) . insertBy
summer2017 = TermIdentifier 2017 Summer summer2017 = TermIdentifier 2017 Summer
winter2017 = TermIdentifier 2017 Winter winter2017 = TermIdentifier 2017 Winter