From 36b512d90b0b55d815d08f7b86599322d046893d Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gkleen@yggdrasil.li>
Date: Wed, 17 Oct 2018 10:19:20 +0200
Subject: [PATCH] Minor cleanup

---
 db.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/db.hs b/db.hs
index dc5ed8f3d..a58d443fa 100755
--- a/db.hs
+++ b/db.hs
@@ -207,7 +207,7 @@ fillDb = do
     , courseSchool = ifi
     , courseCapacity = Just 20
     , courseRegisterFrom = Just now
-    , courseRegisterTo = Just ((3600 * 24 * 60) `addUTCTime` now )
+    , courseRegisterTo = Just (nominalDay `addUTCTime` now )
     , courseDeregisterUntil = Nothing
     , courseRegisterSecret  = Nothing
     , courseMaterialFree    = True
@@ -251,7 +251,7 @@ fillDb = do
     , courseSchool = ifi
     , courseCapacity = Just 20
     , courseRegisterFrom = Just now
-    , courseRegisterTo = Just ((3600 * 24 * 60) `addUTCTime` now )
+    , courseRegisterTo = Just (nominalDay `addUTCTime` now )
     , courseDeregisterUntil = Nothing
     , courseRegisterSecret  = Nothing
     , courseMaterialFree    = True