From a398580b3f95c0ef67671cfbf5f50f28f7a844ae Mon Sep 17 00:00:00 2001 From: Sarah Vaupel Date: Thu, 14 Jul 2022 18:03:48 +0200 Subject: [PATCH] chore(print-center): work on dbtable contd --- src/Handler/PrintCenter.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/Handler/PrintCenter.hs b/src/Handler/PrintCenter.hs index abf6f785b..606e8bfad 100644 --- a/src/Handler/PrintCenter.hs +++ b/src/Handler/PrintCenter.hs @@ -172,7 +172,7 @@ pjTableQuery (printJob `E.LeftOuterJoin` recipient E.on $ printJob E.^. PrintJobQualification E.==. quali E.?. QualificationId return (printJob, recipient, sender, course, quali) -mkPJTable :: DB (FormResult (PJTableAction, Set PrintJobId), Widget) +mkPJTable :: DB (FormResult (PJTableActionData, Set PrintJobId), Widget) mkPJTable = do now <- liftIO getCurrentTime currentRoute <- fromMaybe (error "mkPJTable called from 404-handler") <$> liftHandler getCurrentRoute -- albeit we do know the route here @@ -233,8 +233,8 @@ mkPJTable = do , dbParamsFormResult = id , dbParamsFormIdent = def } - postprocess :: FormResult (First PJTableAction, DBFormResult PrintJobId Bool PJTableData) - -> FormResult ( PJTableAction, Set PrintJobId) + postprocess :: FormResult (First PJTableActionData, DBFormResult PrintJobId Bool PJTableData) + -> FormResult ( PJTableActionData, Set PrintJobId) postprocess inp = do (First (Just act), jobMap) <- inp let jobSet = Map.keysSet . Map.filter id $ getDBFormResult (const False) jobMap