From 16771ae8c5fe6f040e9fdc87e1b9dad2bee388b6 Mon Sep 17 00:00:00 2001 From: SJost Date: Fri, 30 Nov 2018 16:34:36 +0100 Subject: [PATCH] Fix build. --- 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 8874e0377..6a95e29dc 100644 --- a/src/Handler/Corrections.hs +++ b/src/Handler/Corrections.hs @@ -185,7 +185,7 @@ colCommentField = sortable Nothing (i18nCell MsgRatingComment) $ formCell makeCorrectionsTable :: ( IsDBTable m x, ToSortable h, Functor h ) - => CorrectionTableWhere -> Colonnade h CorrectionTableData (DBCell m x) -> PSValidator m x -> _ -> Handler (DBResult m x) + => CorrectionTableWhere -> Colonnade h CorrectionTableData (DBCell m x) -> PSValidator m x -> _ -> DB (DBResult m x) makeCorrectionsTable whereClause dbtColonnade psValidator dbtProj' = do let dbtSQLQuery :: CorrectionTableExpr -> E.SqlQuery _ dbtSQLQuery = correctionsTableQuery whereClause