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

update fill-db.hs on master

Browse Source
This commit is contained in:
Felix Hamann 2018-06-29 23:25:31 +02:00
parent 09d263face
commit 677a83d112
1 changed files with 0 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
fill-db.hs
View File

@ -95,7 +95,6 @@ main = db $ do
, courseTerm = TermKey summer2018 , courseTerm = TermKey summer2018
, courseSchool = ifi , courseSchool = ifi
, courseCapacity = Just 20 , courseCapacity = Just 20
, courseHasRegistration = True
, courseRegisterFrom = Just now , courseRegisterFrom = Just now
, courseRegisterTo = Just ((3600 * 24 * 60) `addUTCTime` now ) , courseRegisterTo = Just ((3600 * 24 * 60) `addUTCTime` now )
, courseDeregisterUntil = Nothing , courseDeregisterUntil = Nothing
@ -122,7 +121,6 @@ main = db $ do
, courseTerm = TermKey summer2017 , courseTerm = TermKey summer2017
, courseSchool = ifi , courseSchool = ifi
, courseCapacity = Just 20 , courseCapacity = Just 20
, courseHasRegistration = False
, courseRegisterFrom = Nothing , courseRegisterFrom = Nothing
, courseRegisterTo = Nothing , courseRegisterTo = Nothing
, courseDeregisterUntil = Nothing , courseDeregisterUntil = Nothing
@ -141,7 +139,6 @@ main = db $ do
, courseTerm = TermKey summer2018 , courseTerm = TermKey summer2018
, courseSchool = ifi , courseSchool = ifi
, courseCapacity = Just 20 , courseCapacity = Just 20
, courseHasRegistration = True
, courseRegisterFrom = Just now , courseRegisterFrom = Just now
, courseRegisterTo = Just ((3600 * 24 * 60) `addUTCTime` now ) , courseRegisterTo = Just ((3600 * 24 * 60) `addUTCTime` now )
, courseDeregisterUntil = Nothing , courseDeregisterUntil = Nothing
@ -160,7 +157,6 @@ main = db $ do
, courseTerm = TermKey winter2017 , courseTerm = TermKey winter2017
, courseSchool = ifi , courseSchool = ifi
, courseCapacity = Just 30 , courseCapacity = Just 30
, courseHasRegistration = False
, courseRegisterFrom = Nothing , courseRegisterFrom = Nothing
, courseRegisterTo = Nothing , courseRegisterTo = Nothing
, courseDeregisterUntil = Nothing , courseDeregisterUntil = Nothing
@ -179,7 +175,6 @@ main = db $ do
, courseTerm = TermKey summer2017 , courseTerm = TermKey summer2017
, courseSchool = ifi , courseSchool = ifi
, courseCapacity = Just 50 , courseCapacity = Just 50
, courseHasRegistration = False
, courseRegisterFrom = Nothing , courseRegisterFrom = Nothing
, courseRegisterTo = Nothing , courseRegisterTo = Nothing
, courseDeregisterUntil = Nothing , courseDeregisterUntil = Nothing
@ -198,7 +193,6 @@ main = db $ do
, courseTerm = TermKey summer2018 , courseTerm = TermKey summer2018
, courseSchool = ifi , courseSchool = ifi
, courseCapacity = Just 50 , courseCapacity = Just 50
, courseHasRegistration = False
, courseRegisterFrom = Nothing , courseRegisterFrom = Nothing
, courseRegisterTo = Nothing , courseRegisterTo = Nothing
, courseDeregisterUntil = Nothing , courseDeregisterUntil = Nothing