Always form a monoidal sum during a run of dbTable

Fixes #142

src/Handler/Course.hs

@@ -187,7 +187,7 @@ getCourseListR = do -- TODO: Suchfunktion für Kurse und Kürzel!!!
       whereClause = const $ E.val True
       validator = def
         & defaultSorting [("course", SortAsc), ("term", SortDesc)]
-  coursesTable <- makeCourseTable whereClause colonnade validator
+  ((), coursesTable) <- makeCourseTable whereClause colonnade validator
   defaultLayout $ do
     setTitleI MsgCourseListTitle
     [whamlet|TODO: Such-/Filterfunktion hier einbauen|] -- TODO
@@ -217,7 +217,7 @@ getTermCourseListR tid = do
       whereClause = \(course, _, _) -> course E.^. CourseTerm E.==. E.val tid
       validator = def
         & defaultSorting [("cshort", SortAsc)]
-  coursesTable <- makeCourseTable whereClause colonnade validator
+  ((), coursesTable) <- makeCourseTable whereClause colonnade validator
   defaultLayout $ do
     setTitleI . MsgTermCourseListTitle $ tid
     $(widgetFile "courses")

src/Handler/Home.hs

@@ -65,7 +65,7 @@ homeAnonymous = do
                         E.||. (course E.^. CourseRegisterTo E.>=. E.val (Just cTime)))
             return course
 
-      colonnade :: Colonnade Sortable (DBRow (Entity Course)) (DBCell (WidgetT UniWorX IO) ())
+      colonnade :: Colonnade Sortable (DBRow (Entity Course)) (DBCell (HandlerT UniWorX IO) ())
       colonnade = mconcat
         [ -- dbRow
           sortable (Just "course") (textCell MsgCourse) $ \DBRow{ dbrOutput=(Entity {entityVal = course}) } -> do
@@ -77,7 +77,7 @@ homeAnonymous = do
         , sortable (Just "deadline") (textCell MsgRegisterTo) $ \DBRow{ dbrOutput=(Entity {entityVal = course}) } ->
             cell $ traverse (formatTime SelFormatDateTime) (courseRegisterTo course) >>= maybe mempty toWidget
         ]
-  courseTable <- dbTable def $ DBTable
+  ((), courseTable) <- dbTable def $ DBTable
     { dbtSQLQuery  = tableData
     , dbtColonnade = colonnade
     , dbtProj      = return
@@ -144,7 +144,7 @@ homeUser uid = do
                                              , E.Value UTCTime
                                              , E.Value (Maybe SubmissionId)
                                              ))
-                                      (DBCell (WidgetT UniWorX IO) ())
+                                      (DBCell (HandlerT UniWorX IO) ())
       colonnade = mconcat
         [ -- dbRow
           sortable (Just "course") (textCell MsgCourse) $ \DBRow{ dbrOutput=(E.Value tid, E.Value csh, _, _, _) } ->
@@ -162,7 +162,7 @@ homeUser uid = do
                                         tickmark
         ]
   let validator = def & defaultSorting [("done",SortDesc), ("deadline",SortDesc)]
-  sheetTable <- dbTable validator $ DBTable
+  ((), sheetTable) <- dbTable validator $ DBTable
     { dbtSQLQuery  = tableData
     , dbtColonnade = colonnade
     , dbtProj      = \dbRow@DBRow{ dbrOutput = (E.Value tid, E.Value csh, E.Value shn, _, _) }

src/Handler/Sheet.hs

@@ -56,6 +56,8 @@ import qualified Data.Map as Map
 import Data.Map (Map, (!), (!?))
 import qualified Data.Map as Map
 
+import Data.Monoid (Sum(..))
+
 import Control.Lens
 import Utils.Lens
 
@@ -199,7 +201,8 @@ getSheetListR tid csh = do
                     mkRoute = do
                       cid <- mkCid
                       return $ CSubmissionR tid csh sheetName cid CorrectionR
-                in anchorCellM mkRoute $(widgetFile "widgets/rating")
+                    protoCell = anchorCellM mkRoute $(widgetFile "widgets/rating")
+                in protoCell & cellContents %~ (<* tell (sheetTypeSum (sheetType, submissionRatingPoints)))
       , sortable Nothing -- (Just "percent")
                         (i18nCell MsgRatingPercent)
           $ \(Entity _ Sheet{sheetType=sType}, _, mbSub) -> case mbSub of
@@ -214,7 +217,7 @@ getSheetListR tid csh = do
       ]          
     psValidator = def
       & defaultSorting [("submission-since", SortAsc)]
-  table <- dbTable psValidator $ DBTable
+  (SheetTypeSummary{..}, table) <- dbTable psValidator $ DBTable
     { dbtSQLQuery  = sheetData
     , dbtColonnade = sheetCol
     , dbtProj = \DBRow{ dbrOutput = dbrOutput@(Entity _ Sheet{..}, _, _) }
@@ -248,19 +251,6 @@ getSheetListR tid csh = do
     , dbtStyle     = def
     , dbtIdent     = "sheets" :: Text
     }
-  cTime <- Just <$> liftIO getCurrentTime -- TODO: HACK - remove me and the 2 next TODOs, see issue #142
-  rawStats <- runDB $ do -- compute the values of the table once again, since dbTable does not provide a list of raw values for summation/statistics
-    E.select $ E.from $ \(sheet `E.LeftOuterJoin` (submission `E.InnerJoin` submissionUser)) -> do
-      E.on $ submission E.?. SubmissionId E.==. submissionUser E.?. SubmissionUserSubmission
-      E.on $  (E.just $ sheet E.^. SheetId) E.==. submission E.?. SubmissionSheet
-        E.&&. submissionUser E.?. SubmissionUserUser E.==. E.val muid
-      E.where_ $ sheet E.^. SheetCourse E.==. E.val cid
-        E.&&.   (E.not_ $ E.isNothing $ sheet E.^. SheetVisibleFrom) -- TODO see above #142
-        E.&&.   sheet E.^. SheetVisibleFrom E.<=. E.val cTime        -- TODO see above #142
-      return $ (sheet E.^. SheetType, submission E.?. SubmissionRatingPoints)
-
-  let sheetTypeSummary = foldl' sumSheetTypes emptySheetTypeSummary
-                       $ map (\(st,mp) -> (E.unValue st, join $ E.unValue mp)) rawStats
   defaultLayout $ do
     $(widgetFile "sheetList")
     $(widgetFile "widgets/sheetTypeSummary")
@@ -301,7 +291,7 @@ getSShowR tid csh shn = do
         ]
   let psValidator = def
         & defaultSorting [("type", SortAsc), ("path", SortAsc)]
-  fileTable <- dbTable psValidator $ DBTable
+  ((), fileTable) <- dbTable psValidator $ DBTable
     { dbtSQLQuery = fileData
     , dbtColonnade = colonnadeFiles
     , dbtProj = \DBRow{ dbrOutput = dbrOutput@(E.Value fName, _, E.Value fType) }

src/Handler/Submission.hs

@@ -246,7 +246,7 @@ submissionHelper tid csh shn (SubmissionMode mcid) = do
   maySubmit <- (== Authorized) <$> isAuthorized actionUrl True
 
   -- Maybe construct a table to display uploaded archive files
-  let colonnadeFiles :: _ -> Colonnade Sortable _ (DBCell (WidgetT UniWorX IO) ())
+  let colonnadeFiles :: _ -> Colonnade Sortable _ (DBCell (HandlerT UniWorX IO) ())
       colonnadeFiles cid = mconcat
         [ sortable (Just "path") (textCell MsgFileTitle) $ \(coalesce -> (mOrig, mCorr)) -> let
               Just fileTitle' = fileTitle . entityVal . snd <$> (mOrig <|> mCorr)
@@ -299,7 +299,7 @@ submissionHelper tid csh shn (SubmissionMode mcid) = do
                         ]
         , dbtFilter = []
         }
-  mFileTable <- traverse (dbTable def) . fmap smid2ArchiveTable $ (,) <$> msmid <*> mcid
+  mFileTable <- traverse (fmap snd . dbTable def) . fmap smid2ArchiveTable $ (,) <$> msmid <*> mcid
 
   defaultLayout $ do
     setTitleI $ MsgSubmissionEditHead tid csh shn

src/Handler/Term.hs

@@ -78,7 +78,7 @@ getTermShowR = do
 --                       #{termToText termName}
 --                 |]
 --           ]
-      table <- dbTable def $ DBTable
+      ((), table) <- dbTable def $ DBTable
         { dbtSQLQuery = termData
         , dbtColonnade = colonnadeTerms
         , dbtProj = return . dbrOutput

src/Handler/Users.hs

@@ -4,7 +4,7 @@
 {-# LANGUAGE QuasiQuotes #-}
 {-# LANGUAGE MultiParamTypeClasses #-}
 {-# LANGUAGE TypeFamilies #-}
-{-# LANGUAGE RecordWildCards #-}
+{-# LANGUAGE RecordWildCards, NamedFieldPuns #-}
 
 module Handler.Users where
 
@@ -12,6 +12,8 @@ import Import
 -- import Data.Text
 import Handler.Utils
 
+import Utils.Lens
+
 import qualified Data.Map as Map
 import qualified Data.Set as Set
 
@@ -29,7 +31,7 @@ hijackUserForm uid csrf = do
 getUsersR :: Handler Html
 getUsersR = do
   let
-    colonnadeUsers = dbColonnade . mconcat $
+    dbtColonnade = dbColonnade . mconcat $
       [ dbRow
       , sortable (Just "display-name") (i18nCell MsgName) $ \DBRow{ dbrOutput = Entity uid User{..} } -> anchorCellM
           (AdminUserR <$> encrypt uid)
@@ -40,32 +42,28 @@ getUsersR = do
 --       , sortable (Just "last-name") (i18nCell MsgName) $ \DBRow{ dbrOutput = Entity uid User{..} } -> anchorCellM
 --           (AdminUserR <$> encrypt uid)
 --           (toWidget . display $ last $ impureNonNull $ words $ userDisplayName)
-      , sortable Nothing (i18nCell MsgAdminFor) $ \DBRow{ dbrOutput = Entity uid _ } -> mempty
+      , sortable Nothing (i18nCell MsgAdminFor) $ \DBRow{ dbrOutput = Entity uid _ } -> flip (set' cellContents) mempty $ do
-          { dbCellContents = do
+          schools <- lift . E.select . E.from $ \(school `E.InnerJoin` userAdmin) -> do
-              schools <- E.select . E.from $ \(school `E.InnerJoin` userAdmin) -> do
+            E.on $ school E.^. SchoolId E.==. userAdmin E.^. UserAdminSchool
-                E.on $ school E.^. SchoolId E.==. userAdmin E.^. UserAdminSchool
+            E.where_ $ userAdmin E.^. UserAdminUser E.==. E.val uid
-                E.where_ $ userAdmin E.^. UserAdminUser E.==. E.val uid
+            E.orderBy [E.asc $ school E.^. SchoolShorthand]
-                E.orderBy [E.asc $ school E.^. SchoolShorthand]
+            return $ school E.^. SchoolShorthand
-                return $ school E.^. SchoolShorthand
+          return [whamlet|
-              return [whamlet|
+            <ul .list--inline .list--comma-separated>
-                  <ul .list--inline .list--comma-separated>
+              $forall (E.Value sh) <- schools
-                    $forall (E.Value sh) <- schools
+                <li>#{sh}
-                      <li>#{sh}
+            |]
-                |]
+      , sortable Nothing (i18nCell MsgLecturerFor) $ \DBRow{ dbrOutput = Entity uid _ } -> flip (set' cellContents) mempty $ do
-          }
+          schools <- lift . E.select . E.from $ \(school `E.InnerJoin` userLecturer) -> do
-      , sortable Nothing (i18nCell MsgLecturerFor) $ \DBRow{ dbrOutput = Entity uid _ } -> mempty
+            E.on $ school E.^. SchoolId E.==. userLecturer E.^. UserLecturerSchool
-          { dbCellContents = do
+            E.where_ $ userLecturer E.^. UserLecturerUser E.==. E.val uid
-              schools <- E.select . E.from $ \(school `E.InnerJoin` userLecturer) -> do
+            E.orderBy [E.asc $ school E.^. SchoolShorthand]
-                E.on $ school E.^. SchoolId E.==. userLecturer E.^. UserLecturerSchool
+            return $ school E.^. SchoolShorthand
-                E.where_ $ userLecturer E.^. UserLecturerUser E.==. E.val uid
+          return [whamlet|
-                E.orderBy [E.asc $ school E.^. SchoolShorthand]
+            <ul .list--inline .list--comma-separated>
-                return $ school E.^. SchoolShorthand
+              $forall (E.Value sh) <- schools
-              return [whamlet|
+                <li>#{sh}
-                  <ul .list--inline .list--comma-separated>
+            |]
-                    $forall (E.Value sh) <- schools
-                      <li>#{sh}
-                |]
-          }
       , sortable Nothing mempty $ \DBRow{ dbrOutput = Entity uid _ } -> cell $ do
           (hijackView, hijackEnctype) <- liftHandlerT . generateFormPost $ hijackUserForm uid
           cID <- encrypt uid
@@ -77,9 +75,9 @@ getUsersR = do
     psValidator = def
       & defaultSorting [("display-name", SortAsc)]
   
-  userList <- dbTable psValidator $ DBTable
+  ((), userList) <- dbTable psValidator $ DBTable
     { dbtSQLQuery  = return :: E.SqlExpr (Entity User) -> E.SqlQuery (E.SqlExpr (Entity User))
-    , dbtColonnade = colonnadeUsers
+    , dbtColonnade
     , dbtProj      = return
     , dbtSorting   = Map.fromList
         [ ( "display-name"

src/Handler/Utils/Table/Pagination.hs

@@ -40,6 +40,7 @@ module Handler.Utils.Table.Pagination
   , dbRow, dbSelect
   , (&)
   , module Control.Monad.Trans.Maybe
+  , module Colonnade
   ) where
 
 import Handler.Utils.Table.Pagination.Types
@@ -271,46 +272,46 @@ cellAttrs = dbCell . _1
 cellContents :: IsDBTable m x => Lens' (DBCell m x) (WriterT x m Widget)
 cellContents = dbCell . _2
 
-instance IsDBTable (WidgetT UniWorX IO) () where
+instance Monoid x => IsDBTable (HandlerT UniWorX IO) x where
-  type DBResult (WidgetT UniWorX IO) () = Widget
+  type DBResult (HandlerT UniWorX IO) x = (x, Widget)
   -- type DBResult' (WidgetT UniWorX IO) () = ()
 
-  data DBCell (WidgetT UniWorX IO) () = WidgetCell
+  data DBCell (HandlerT UniWorX IO) x = WidgetCell
     { wgtCellAttrs :: [(Text, Text)]
-    , wgtCellContents :: Widget
+    , wgtCellContents :: WriterT x (HandlerT UniWorX IO) Widget
     }
 
   dbCell = iso
-    (\WidgetCell{..} -> (wgtCellAttrs, return wgtCellContents))
+    (\WidgetCell{..} -> (wgtCellAttrs, wgtCellContents))
-    (\(attrs, mkWidget) -> WidgetCell attrs . join . fmap fst $ runWriterT mkWidget)
+    (\(attrs, mkWidget) -> WidgetCell attrs mkWidget)
   
   -- dbWidget Proxy Proxy = iso (, ()) $ view _1
-  dbWidget _ = return
+  dbWidget _ = return . snd
-  dbHandler _ f x = return $ f x
+  dbHandler _ f = return . over _2 f
-  runDBTable = return . join . fmap (view _2)
+  runDBTable act = liftHandlerT act
 
-instance Monoid (DBCell (WidgetT UniWorX IO) ()) where
+instance Monoid x => Monoid (DBCell (HandlerT UniWorX IO) x) where
-  mempty = WidgetCell mempty mempty
+  mempty = WidgetCell mempty $ return mempty
-  (WidgetCell a c) `mappend` (WidgetCell a' c') = WidgetCell (mappend a a') (mappend c c')
+  (WidgetCell a c) `mappend` (WidgetCell a' c') = WidgetCell (mappend a a') (mappend <$> c <*> c')
 
-instance IsDBTable (ReaderT SqlBackend (HandlerT UniWorX IO)) () where
+instance Monoid x => IsDBTable (ReaderT SqlBackend (HandlerT UniWorX IO)) x where
-  type DBResult (ReaderT SqlBackend (HandlerT UniWorX IO)) () = Widget
+  type DBResult (ReaderT SqlBackend (HandlerT UniWorX IO)) x = (x, Widget)
 
-  data DBCell (ReaderT SqlBackend (HandlerT UniWorX IO)) () = DBCell
+  data DBCell (ReaderT SqlBackend (HandlerT UniWorX IO)) x = DBCell
     { dbCellAttrs :: [(Text, Text)]
-    , dbCellContents :: ReaderT SqlBackend (HandlerT UniWorX IO) Widget
+    , dbCellContents :: WriterT x (ReaderT SqlBackend (HandlerT UniWorX IO)) Widget
     }
 
   dbCell = iso
-    (\DBCell{..} -> (dbCellAttrs, lift dbCellContents))
+    (\DBCell{..} -> (dbCellAttrs, dbCellContents))
-    (\(attrs, mkWidget) -> DBCell attrs . fmap fst $ runWriterT mkWidget)
+    (\(attrs, mkWidget) -> DBCell attrs mkWidget)
 
-  dbWidget _ = return
+  dbWidget _ = return . snd
-  dbHandler _ f x = return $ f x
+  dbHandler _ f = return . over _2 f
   -- runDBTable :: forall m. (MonadHandler m, HandlerSite m ~ UniWorX) => ReaderT SqlBackend (HandlerT UniWorX IO) ((), Widget) -> m (Widget)
-  runDBTable = fmap snd . mapReaderT liftHandlerT
+  runDBTable = mapReaderT liftHandlerT
 
-instance Monoid (DBCell (ReaderT SqlBackend (HandlerT UniWorX IO)) ()) where
+instance Monoid x => Monoid (DBCell (ReaderT SqlBackend (HandlerT UniWorX IO)) x) where
   mempty = DBCell mempty $ return mempty
   (DBCell a c) `mappend` (DBCell a' c') = DBCell (mappend a a') (mappend <$> c <*> c')
 
@@ -454,9 +455,9 @@ dbTable PSValidator{..} dbtable@(DBTable{ dbtIdent = (toPathPiece -> dbtIdent),
 
 --- DBCell utility functions
 
-widgetColonnade :: Headedness h
+widgetColonnade :: (Headedness h, Monoid x)
-                => Colonnade h r (DBCell (WidgetT UniWorX IO) ())
+                => Colonnade h r (DBCell (HandlerT UniWorX IO) x)
-                -> Colonnade h r (DBCell (WidgetT UniWorX IO) ())
+                -> Colonnade h r (DBCell (HandlerT UniWorX IO) x)
 widgetColonnade = id
 
 formColonnade :: (Headedness h, Monoid a)
@@ -464,9 +465,9 @@ formColonnade :: (Headedness h, Monoid a)
               -> Colonnade h r (DBCell (RWST (Maybe (Env, FileEnv), UniWorX, [Lang]) Enctype Ints (HandlerT UniWorX IO)) (FormResult a))
 formColonnade = id
 
-dbColonnade :: Headedness h
+dbColonnade :: (Headedness h, Monoid x)
-            => Colonnade h r (DBCell (ReaderT SqlBackend (HandlerT UniWorX IO)) ())
+            => Colonnade h r (DBCell (ReaderT SqlBackend (HandlerT UniWorX IO)) x)
-            -> Colonnade h r (DBCell (ReaderT SqlBackend (HandlerT UniWorX IO)) ())
+            -> Colonnade h r (DBCell (ReaderT SqlBackend (HandlerT UniWorX IO)) x)
 dbColonnade = id
 
 cell :: IsDBTable m a => Widget -> DBCell m a

src/Model/Types.hs

@@ -21,6 +21,7 @@ import qualified Data.Map as Map
 import Data.Set (Set)
 import qualified Data.Set as Set
 import Data.Fixed
+import Data.Monoid (Sum(..))
 
 import Database.Persist.TH
 import Database.Persist.Class
@@ -42,6 +43,7 @@ import Data.Aeson (FromJSON(..), ToJSON(..), withText, Value(..))
 import Data.Aeson.TH (deriveJSON, defaultOptions)
 
 import GHC.Generics (Generic)
+import Generics.Deriving.Monoid (gmemptydefault, gmappenddefault)
 import Data.Typeable (Typeable)
 
 import Text.Shakespeare.I18N (ToMessage(..), RenderMessage(..))
@@ -77,29 +79,24 @@ deriveJSON defaultOptions ''SheetType
 derivePersistFieldJSON "SheetType"
 
 data SheetTypeSummary = SheetTypeSummary
-  { sumBonusPoints  :: Points
+  { sumBonusPoints  :: Sum Points
-  , sumNormalPoints :: Points
+  , sumNormalPoints :: Sum Points
-  , numPassSheets   :: Int
+  , numPassSheets   :: Sum Int
-  , numNotGraded    :: Int
+  , numNotGraded    :: Sum Int
-  , achievedBonus   :: Maybe Points
+  , achievedBonus   :: Maybe (Sum Points)
-  , achievedNormal  :: Maybe Points
+  , achievedNormal  :: Maybe (Sum Points)
-  , achievedPasses  :: Maybe Int
+  , achievedPasses  :: Maybe (Sum Int)
-  }
+  } deriving (Generic)
 
+instance Monoid SheetTypeSummary where
+  mempty = gmemptydefault
+  mappend = gmappenddefault
 
-emptySheetTypeSummary :: SheetTypeSummary
+sheetTypeSum :: (SheetType, Maybe Points) -> SheetTypeSummary
-emptySheetTypeSummary = SheetTypeSummary 0 0 0 0 Nothing Nothing Nothing
+sheetTypeSum (Bonus{..},  achieved) = mempty { sumBonusPoints = Sum maxPoints, achievedBonus = Sum <$> achieved }
-
+sheetTypeSum (Normal{..}, achieved) = mempty { sumNormalPoints = Sum maxPoints, achievedNormal = Sum <$> achieved }
--- TODO: refactor with lenses!
+sheetTypeSum (Pass{..},   achieved) = mempty { numPassSheets = Sum 1, achievedPasses = Sum . bool 0 1 . (passingPoints <=) <$> achieved}
-sumSheetTypes :: SheetTypeSummary -> (SheetType, Maybe Points) -> SheetTypeSummary
+sheetTypeSum (NotGraded,  _       ) = mempty { numNotGraded = Sum 1 }
-sumSheetTypes sts@(SheetTypeSummary {..}) (Bonus {..}, achieved)
-  = sts{ sumBonusPoints =sumBonusPoints +maxPoints, achievedBonus  = maybeAdd achievedBonus  achieved }
-sumSheetTypes sts@(SheetTypeSummary {..}) (Normal {..}, achieved)
-  = sts{ sumNormalPoints=sumNormalPoints+maxPoints, achievedNormal = maybeAdd achievedNormal achieved }
-sumSheetTypes sts@(SheetTypeSummary {..}) (Pass   {..}, achieved)
-  = sts{ numPassSheets=numPassSheets+1, achievedPasses = maybeAdd achievedPasses (bool 0 1 <$> (passingPoints <=) <$> achieved) }
-sumSheetTypes sts@(SheetTypeSummary {..}) (NotGraded, _achieved)
-  = sts{ numNotGraded=numNotGraded+1 }
 
 
 data SheetGroup

templates/widgets/sheetTypeSummary.hamlet

@@ -1,23 +1,23 @@
 <div>
-  $if 0 < sumNormalPoints sheetTypeSummary
+  $if 0 < getSum sumNormalPoints
-    Gesamtpunktzahl #{display (sumNormalPoints sheetTypeSummary)}
+    Gesamtpunktzahl #{display (getSum sumNormalPoints)}
-    $maybe nPts <- (maybeAdd (achievedNormal sheetTypeSummary) (achievedBonus sheetTypeSummary))
+    $maybe nPts <- (maybeAdd (getSum <$> achievedNormal) (getSum <$> achievedBonus))
       \ davon #{display nPts} erreicht
-      $maybe bPts <- achievedBonus sheetTypeSummary
+      $maybe bPts <- getSum <$> achievedBonus
         \ (inklusive #{display bPts} #
-        $if 0 < sumBonusPoints sheetTypeSummary
+        $if 0 < getSum sumBonusPoints
-          von #{display $ sumBonusPoints sheetTypeSummary} erreichbaren #
+          von #{display $ getSum sumBonusPoints} erreichbaren #
         Bonuspunkten)
-      \ #{textPercent $ realToFrac $ nPts / (sumNormalPoints sheetTypeSummary)}
+      \ #{textPercent $ realToFrac $ nPts / (getSum sumNormalPoints)}
 
 
 <div>
-  $if 0 < numPassSheets sheetTypeSummary
+  $if 0 < getSum numPassSheets
-    Blätter zum Bestehen: #{display (numPassSheets sheetTypeSummary)}
+    Blätter zum Bestehen: #{display (getSum numPassSheets)}
-    $maybe passed <- achievedPasses sheetTypeSummary
+    $maybe passed <- getSum <$> achievedPasses
-      \ davon #{display (achievedPasses sheetTypeSummary)} bestanden.
+      \ davon #{display passed} bestanden.
 
 <div>
-  $if 0 < numNotGraded sheetTypeSummary
+  $if 0 < getSum numNotGraded
-    Unbewertet: #{display (numNotGraded sheetTypeSummary)} Blätter
+    Unbewertet: #{display (getSum numNotGraded)} Blätter