From a7b41e9cc89f794ecaadb0c4d52207c773467b78 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Mon, 21 Jun 2021 14:07:01 +0000 Subject: [PATCH] Apply 1 suggestion(s) to 1 file(s) --- src/Handler/Material.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Handler/Material.hs b/src/Handler/Material.hs index 55c9ced2c..a803b5f8d 100644 --- a/src/Handler/Material.hs +++ b/src/Handler/Material.hs @@ -148,8 +148,8 @@ getMaterialListR tid ssh csh = do , ( "last-edit" , SortColumn (E.^. MaterialLastEdit) ) ] , dbtFilter = mconcat - [ (singletonMap "may-access" . mkFilterProjectedPost $ \(Any b) dbr - -> (== b) <$> hasReadAccessTo (matLink . materialName $ row2material dbr) :: DB Bool) + [ singletonMap "may-access" . mkFilterProjectedPost $ \(Any b) dbr + -> (== b) <$> hasReadAccessTo (matLink . materialName $ row2material dbr) :: DB Bool , (singletonMap "searchName". FilterColumn $ \material criterion -> case getLast (criterion :: Last Text) of Nothing -> E.val True :: E.SqlExpr (E.Value Bool) Just needle -> (E.castString (material E.^. MaterialName) `E.ilike` (E.%) E.++. E.val needle E.++. (E.%)))