diff --git a/src/Handler/Material.hs b/src/Handler/Material.hs index 0b6fcc9cf..0a8edb3a7 100644 --- a/src/Handler/Material.hs +++ b/src/Handler/Material.hs @@ -150,7 +150,7 @@ getMaterialListR tid ssh csh = do , dbtFilter = mconcat [ (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 + , (singletonMap "name". 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.%))) , (singletonMap "type-and-description". FilterColumn $ \material criterion -> case getLast (criterion :: Last Text) of