From db915f5736816fcc831a8516774dc2f402945a4d Mon Sep 17 00:00:00 2001 From: Steffen Jost Date: Wed, 15 May 2019 09:49:42 +0200 Subject: [PATCH] Default Filter corrections inactivated, depends on issue #371 --- 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 0c8b386c5..15646baea 100644 --- a/src/Handler/Corrections.hs +++ b/src/Handler/Corrections.hs @@ -534,7 +534,7 @@ postCorrectionsR = do & restrictFilter (\name _ -> name /= "corrector") -- We need to be careful to restrict allowed sorting/filter to not expose sensitive information & restrictSorting (\name _ -> name /= "corrector") & defaultSorting [SortAscBy "israted", SortDescBy "ratingTime", SortAscBy "assignedtime" ] - & defaultFilter (Map.fromList [("israted",["no"]), ("sheet-search",["foo"])]) -- this does not work. "no" is the form value that we wanted + -- & defaultFilter (Map.fromList [("israted",[toPathPiece False])]) -- DEPENDS ON ISSUE #371 UNCOMMENT THEN correctionsR whereClause colonnade filterUI psValidator $ Map.fromList [ downloadAction ]