fix(print): disable default filter for print acknowledged

2023-02-13 12:56:56 +01:00 · 2023-02-13 12:56:56 +01:00 · f0b20a1b26
commit f0b20a1b26
parent 4e4508b919
1 changed files with 1 additions and 1 deletions
--- 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