Minor; comments added.

src/Handler/Home.hs

@@ -75,7 +75,7 @@ homeAnonymous = do
             let tid = courseTerm course
                 csh = courseShorthand course
             cell [whamlet|<a href=@{CourseR tid csh CShowR}>#{display csh}|]
-        , sortable (Just "deadline") (i18nCell MsgDeadline) $ \DBRow{ dbrOutput=(Entity {entityVal = course}) } ->
+        , sortable (Just "deadline") (i18nCell MsgRegisterTo) $ \DBRow{ dbrOutput=(Entity {entityVal = course}) } ->
             textCell $ display $ courseRegisterTo course
         ]
   courseTable <- dbTable def $ DBTable

templates/course.hamlet

@@ -35,6 +35,7 @@
         $if registrationOpen
           <div .course__registration.container>
             <form method=post action=@{CourseR tid csh CRegisterR} enctype=#{regEnctype}>
+              $# regWidget is defined through templates/widgets/registerForm
               ^{regWidget}
 
 $# <div .container>

templates/widgets/registerForm.hamlet

@@ -1,4 +1,4 @@
-$# protects against CSRF
+$# extra protects us against CSRF
 #{extra}
 $# Maybe display textField for passcode
 $maybe secretView <- msecretView