From 2b79b40bfba22990fb7800af56fd62e41a6fca8f Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Sun, 19 May 2019 00:40:54 +0200 Subject: [PATCH] Fix Haddock --- src/Handler/Corrections.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Handler/Corrections.hs b/src/Handler/Corrections.hs index bb547e7f7..78b5d187a 100644 --- a/src/Handler/Corrections.hs +++ b/src/Handler/Corrections.hs @@ -116,7 +116,7 @@ colSheet = sortable (Just "sheet") (i18nCell MsgSheet) $ \row -> colSheetType :: IsDBTable m a => Colonnade Sortable CorrectionTableData (DBCell m a) colSheetType = sortable (toNothing "sheetType") (i18nCell MsgSheetType) $ i18nCell . sheetType <$> view (_dbrOutput . _2 . _entityVal) - -- $ \DBRow{ dbrOutput=(_, sheet, _, _, _, _) } -> i18nCell . sheetType $ entityVal sheet + -- \DBRow{ dbrOutput=(_, sheet, _, _, _, _) } -> i18nCell . sheetType $ entityVal sheet colCorrector :: IsDBTable m a => Colonnade Sortable CorrectionTableData (DBCell m a) colCorrector = sortable (Just "corrector") (i18nCell MsgCorrector) $ \case