Fix build.

This commit is contained in:
SJost 2018-10-31 14:39:15 +01:00
parent e5a0cecd7e
commit 4ea061ea17

2
db.hs
View File

@ -299,7 +299,7 @@ fillDb = do
{ sheetCourse = pmo { sheetCourse = pmo
, sheetName = "Blatt 1" , sheetName = "Blatt 1"
, sheetDescription = Nothing , sheetDescription = Nothing
, sheetType = Normal 6 , sheetType = Normal $ Points 6
, sheetGrouping = Arbitrary 3 , sheetGrouping = Arbitrary 3
, sheetMarkingText = Nothing , sheetMarkingText = Nothing
, sheetVisibleFrom = Just now , sheetVisibleFrom = Just now