Address warnings

src/Foundation.hs

@@ -223,7 +223,7 @@ embedRenderMessage ''UniWorX ''SheetType ("SheetType" <>)
 
 newtype SheetTypeComplete = SheetTypeComplete SheetType 
 instance RenderMessage UniWorX (SheetTypeComplete) where
-  renderMessage foundation ls (SheetTypeComplete st) = case st of
+  renderMessage foundation ls (SheetTypeComplete sheetType) = case sheetType of
       NotGraded -> mr NotGraded
       other -> mr (grading other) <> ", " <> mr other
     where 

src/Handler/Sheet.hs

@@ -208,7 +208,7 @@ getSheetListR tid ssh csh = do
         E.&&. submissionUser E.?. SubmissionUserUser E.==. E.val muid
       E.where_ $ sheet E.^. SheetCourse E.==. E.val cid
       return (sheet E.^. SheetType, submission E.?. SubmissionRatingPoints)
-    return $ foldMap (\(E.Value st, E.Value mbPts) -> sheetTypeSum st (join mbPts)) rows
+    return $ foldMap (\(E.Value sheetType, E.Value mbPts) -> sheetTypeSum sheetType (join mbPts)) rows
   (_, table) <- dbTable psValidator $ DBTable
   -- END ISSUE #223
   -----------------------------------------------------

src/Handler/Utils/Table/Cells.hs

@@ -84,7 +84,7 @@ sheetCell crse shn =
   in anchorCell link $ display2widget shn
 
 sheetTypeCell :: IsDBTable m a => SheetType -> DBCell m a
-sheetTypeCell st = i18nCell $ SheetTypeComplete st
+sheetTypeCell sheetType = i18nCell $ SheetTypeComplete sheetType
 
 submissionCell :: IsDBTable m a => CourseLink -> SheetName -> SubmissionId -> DBCell m a
 submissionCell crse shn sid =

templates/widgets/sheetTypeSummary.hamlet

@@ -1,5 +1,5 @@
 $with realGrades <- normalSummary <> bonusSummary 
-  $with allGrades <- realGrades <> informationalSummary
+  $# $with allGrades <- realGrades <> informationalSummary
   <div>
     <ul>    
       $maybe realPoints <- positiveSum (sumGradePoints realGrades)