fraport/fradrive-old
Archived
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Minor cleanup (cellTell)

Browse Source
This commit is contained in:
Gregor Kleen 2019-01-25 18:55:20 +01:00
parent 593ec541b8
commit 85bdf8766b
2 changed files with 2 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Handler/Sheet.hs
View File

@ -226,7 +226,7 @@ getSheetListR tid ssh csh = do
mkRoute = do mkRoute = do
cid' <- mkCid cid' <- mkCid
return $ CSubmissionR tid ssh csh sheetName cid' CorrectionR return $ CSubmissionR tid ssh csh sheetName cid' CorrectionR
in cellTell' stats $ anchorCellM mkRoute $(widgetFile "widgets/rating") in cellTell stats $ anchorCellM mkRoute $(widgetFile "widgets/rating")
, sortable Nothing -- (Just "percent") , sortable Nothing -- (Just "percent")
(i18nCell MsgRatingPercent) (i18nCell MsgRatingPercent)

8
src/Handler/Utils/Table/Cells.hs
View File

@ -16,13 +16,7 @@ type CourseLink = (TermId, SchoolId, CourseShorthand) -- TODO: Refactor with Wit
-- Special cells -- Special cells
cellTell :: (Monoid a, IsDBTable m a) => a -> DBCell m a -> DBCell m a cellTell :: (Monoid a, IsDBTable m a) => a -> DBCell m a -> DBCell m a
cellTell x c = c & cellContents %~ (tell x *>) cellTell = flip mappend . writerCell . tell
cellTell' :: Monoid w => w -> DBCell (HandlerT UniWorX IO) w -> DBCell (HandlerT UniWorX IO) w
cellTell' x c = c { wgtCellContents = tell x >> oldContent }
where
oldContent = wgtCellContents c
indicatorCell :: IsDBTable m Any => DBCell m Any -- For dbTables that return a Bool to indicate content indicatorCell :: IsDBTable m Any => DBCell m Any -- For dbTables that return a Bool to indicate content
indicatorCell = writerCell . tell $ Any True indicatorCell = writerCell . tell $ Any True