diff --git a/src/Handler/PrintCenter.hs b/src/Handler/PrintCenter.hs index 29e7a89a2..fd64b55a7 100644 --- a/src/Handler/PrintCenter.hs +++ b/src/Handler/PrintCenter.hs @@ -280,7 +280,7 @@ mkPJTable = do let jobSet = Map.keysSet . Map.filter id $ getDBFormResult (const False) jobMap return (act, jobSet) psValidator = def & defaultSorting [SortAscBy "created"] - & defaultFilter (singletonMap "acknowledged" [toPathPiece False]) + -- & defaultFilter (singletonMap "acknowledged" [toPathPiece False]) -- TODO: interferes with sorting! over _1 postprocess <$> dbTable psValidator DBTable{..} getPrintCenterR, postPrintCenterR :: Handler Html