fraport/fradrive-old
fraport/fradrive-old
Archived
3
1
Fork 0
Code Issues 65 Pull Requests 5 Actions Packages Projects Releases 197 Wiki Activity

chore: update db fill

Browse Source
This commit is contained in:
Sarah Vaupel 2020-07-25 15:10:14 +02:00
parent f506415197
commit b7535d764d
1 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
test/Database/Fill.hs
View File

@ -546,6 +546,8 @@ fillDb = do
, courseTerm = TermKey $ seasonTerm True Summer , courseTerm = TermKey $ seasonTerm True Summer
, courseSchool = ifi , courseSchool = ifi
, courseCapacity = Just 20 , courseCapacity = Just 20
, courseVisibleFrom = Just now
, courseVisibleTo = Nothing
, courseRegisterFrom = Just $ termTime True Summer (-2) False Monday toMidnight , courseRegisterFrom = Just $ termTime True Summer (-2) False Monday toMidnight
, courseRegisterTo = Just $ termTime True Summer 0 True Sunday beforeMidnight , courseRegisterTo = Just $ termTime True Summer 0 True Sunday beforeMidnight
, courseDeregisterUntil = Nothing , courseDeregisterUntil = Nothing
@ -658,6 +660,8 @@ fillDb = do
, courseTerm = TermKey $ seasonTerm False Winter , courseTerm = TermKey $ seasonTerm False Winter
, courseSchool = ifi , courseSchool = ifi
, courseCapacity = Just 20 , courseCapacity = Just 20
, courseVisibleFrom = Just now
, courseVisibleTo = Nothing
, courseRegisterFrom = Just $ termTime False Winter (-4) False Monday toMidnight , courseRegisterFrom = Just $ termTime False Winter (-4) False Monday toMidnight
, courseRegisterTo = Nothing , courseRegisterTo = Nothing
, courseDeregisterUntil = Nothing , courseDeregisterUntil = Nothing
@ -682,6 +686,8 @@ fillDb = do
, courseTerm = TermKey $ seasonTerm True Summer , courseTerm = TermKey $ seasonTerm True Summer
, courseSchool = ifi , courseSchool = ifi
, courseCapacity = Just 20 , courseCapacity = Just 20
, courseVisibleFrom = Just now
, courseVisibleTo = Nothing
, courseRegisterFrom = Just $ termTime True Summer 0 False Monday toMidnight , courseRegisterFrom = Just $ termTime True Summer 0 False Monday toMidnight
, courseRegisterTo = Just $ termTime True Summer (-2) True Sunday beforeMidnight , courseRegisterTo = Just $ termTime True Summer (-2) True Sunday beforeMidnight
, courseDeregisterUntil = Nothing , courseDeregisterUntil = Nothing
@ -706,6 +712,8 @@ fillDb = do
, courseTerm = TermKey $ seasonTerm True Winter , courseTerm = TermKey $ seasonTerm True Winter
, courseSchool = ifi , courseSchool = ifi
, courseCapacity = Just 30 , courseCapacity = Just 30
, courseVisibleFrom = Just now
, courseVisibleTo = Nothing
, courseRegisterFrom = Nothing , courseRegisterFrom = Nothing
, courseRegisterTo = Nothing , courseRegisterTo = Nothing
, courseDeregisterUntil = Nothing , courseDeregisterUntil = Nothing
@ -730,6 +738,8 @@ fillDb = do
, courseTerm = TermKey $ seasonTerm True Summer , courseTerm = TermKey $ seasonTerm True Summer
, courseSchool = ifi , courseSchool = ifi
, courseCapacity = Just 50 , courseCapacity = Just 50
, courseVisibleFrom = Just now
, courseVisibleTo = Nothing
, courseRegisterFrom = Just $ termTime True Summer (-2) False Monday toMidnight , courseRegisterFrom = Just $ termTime True Summer (-2) False Monday toMidnight
, courseRegisterTo = Nothing , courseRegisterTo = Nothing
, courseDeregisterUntil = Nothing , courseDeregisterUntil = Nothing
@ -898,6 +908,8 @@ fillDb = do
, courseTerm = TermKey $ seasonTerm False Winter , courseTerm = TermKey $ seasonTerm False Winter
, courseSchool = ifi , courseSchool = ifi
, courseCapacity = Just 50 , courseCapacity = Just 50
, courseVisibleFrom = Just now
, courseVisibleTo = Nothing
, courseRegisterFrom = Nothing , courseRegisterFrom = Nothing
, courseRegisterTo = Nothing , courseRegisterTo = Nothing
, courseDeregisterUntil = Nothing , courseDeregisterUntil = Nothing
@ -1028,6 +1040,8 @@ fillDb = do
, courseTerm = TermKey $ seasonTerm False Winter , courseTerm = TermKey $ seasonTerm False Winter
, courseSchool = ifi , courseSchool = ifi
, courseCapacity = Just 50 , courseCapacity = Just 50
, courseVisibleFrom = Just now
, courseVisibleTo = Nothing
, courseRegisterFrom = Nothing , courseRegisterFrom = Nothing
, courseRegisterTo = Nothing , courseRegisterTo = Nothing
, courseDeregisterUntil = Nothing , courseDeregisterUntil = Nothing
@ -1098,6 +1112,8 @@ fillDb = do
, courseTerm = TermKey $ seasonTerm False Winter , courseTerm = TermKey $ seasonTerm False Winter
, courseSchool = ifi , courseSchool = ifi
, courseCapacity = Just 50 , courseCapacity = Just 50
, courseVisibleFrom = Just now
, courseVisibleTo = Nothing
, courseRegisterFrom = Nothing , courseRegisterFrom = Nothing
, courseRegisterTo = Nothing , courseRegisterTo = Nothing
, courseDeregisterUntil = Nothing , courseDeregisterUntil = Nothing
@ -1153,6 +1169,8 @@ fillDb = do
, courseTerm = TermKey $ seasonTerm False Winter , courseTerm = TermKey $ seasonTerm False Winter
, courseSchool = ifi , courseSchool = ifi
, courseCapacity = Just cap , courseCapacity = Just cap
, courseVisibleFrom = Just now
, courseVisibleTo = Nothing
, courseRegisterFrom = Nothing , courseRegisterFrom = Nothing
, courseRegisterTo = Nothing , courseRegisterTo = Nothing
, courseDeregisterUntil = Nothing , courseDeregisterUntil = Nothing