From 73a19863b166e8536f49ad9160443e9d37ed00cf Mon Sep 17 00:00:00 2001
From: SJost <jost@tcs.ifi.lmu.de>
Date: Wed, 30 Jan 2019 18:02:19 +0100
Subject: [PATCH] Fixbuild for hlint stupidty

---
 src/Handler/Course.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Handler/Course.hs b/src/Handler/Course.hs
index 203859d1b..b656ccdd2 100644
--- a/src/Handler/Course.hs
+++ b/src/Handler/Course.hs
@@ -281,7 +281,7 @@ getCShowR tid ssh csh = do
   mRegFrom <- traverse (formatTime SelFormatDateTime) $ courseRegisterFrom    course
   mRegTo   <- traverse (formatTime SelFormatDateTime) $ courseRegisterTo      course
   mDereg   <- traverse (formatTime SelFormatDateTime) $ courseDeregisterUntil course
-  mRegAt   <- traverse (formatTime SelFormatDateTime) $ registered
+  mRegAt   <- traverse (formatTime SelFormatDateTime)   registered
   (regWidget, regEnctype) <- generateFormPost $ identifyForm "registerBtn" $ registerForm (isJust mRegAt) $ courseRegisterSecret course
   registrationOpen <- (==Authorized) <$> isAuthorized (CourseR tid ssh csh CRegisterR) True
   defaultLayout $ do