From cbc145a56c07833a7d081d0251848688b8ad5269 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gkleen@yggdrasil.li>
Date: Tue, 29 May 2018 17:48:40 +0200
Subject: [PATCH] minor fixes

---
 src/Foundation.hs    | 14 +++++++-------
 src/Handler/Sheet.hs |  6 +++++-
 2 files changed, 12 insertions(+), 8 deletions(-)

diff --git a/src/Foundation.hs b/src/Foundation.hs
index dc68293bb..af80704a9 100644
--- a/src/Foundation.hs
+++ b/src/Foundation.hs
@@ -618,7 +618,7 @@ instance YesodBreadcrumbs UniWorX where
   breadcrumb (CSheetR tid csh shn SShowR) = return (shn,      Just $ CourseR tid csh SheetListR)
   breadcrumb (CSheetR tid csh shn SEditR) = return ("Edit",   Just $ CSheetR tid csh shn SShowR)
   breadcrumb (CSheetR tid csh shn SDelR ) = return ("DELETE", Just $ CSheetR tid csh shn SShowR)
-  -- breadcrumb (CSheetR tid csh shn SCorrR) = return ("Korrektoren", Just $ CSheetR tid csh shn SShowR)
+  breadcrumb (CSheetR tid csh shn SCorrR) = return ("Korrektoren", Just $ CSheetR tid csh shn SShowR)
   breadcrumb (CSheetR tid csh shn (SubmissionR _)) = return ("Abgabe", Just $ CSheetR tid csh shn SShowR)
 
   breadcrumb SubmissionListR = return ("Abgaben", Just HomeR)
@@ -659,12 +659,12 @@ pageActions (CSheetR tid csh shn SShowR) =
       , menuItemRoute = CSheetR tid csh shn (SubmissionR NewSubmission)
       , menuItemAccessCallback' = return True
       }
-  -- , PageActionPrime $ MenuItem
-  --     { menuItemLabel = "Korrektoren"
-  --     , menuItemIcon = Nothing
-  --     , menuItemRoute = CSheetR tid csh shn SCorrR
-  --     , menuItemAccessCallback' = return True
-  --     }
+  , PageActionPrime $ MenuItem
+      { menuItemLabel = "Korrektoren"
+      , menuItemIcon = Nothing
+      , menuItemRoute = CSheetR tid csh shn SCorrR
+      , menuItemAccessCallback' = return True
+      }
   ]
 pageActions TermShowR =
   [ PageActionPrime $ MenuItem
diff --git a/src/Handler/Sheet.hs b/src/Handler/Sheet.hs
index 084262b12..a7d139c27 100644
--- a/src/Handler/Sheet.hs
+++ b/src/Handler/Sheet.hs
@@ -547,7 +547,11 @@ correctorForm shid = do
                            , fvRequired = True
                            }
                        , addTutView
-                           { fvInput = fvInput addTutView >> toWidget [hamlet|<button type=submit formnovalidate>Hinzufügen|]
+                           { fvInput = [whamlet|
+                               <div>
+                                 ^{fvInput addTutView}
+                                 <button type=submit formnovalidate>Hinzufügen
+                             |]
                            }
                        ])