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