From bc09bedb84787a22feec2f310aa77e8d27bc4996 Mon Sep 17 00:00:00 2001 From: Sarah Vaupel Date: Fri, 25 Jun 2021 12:23:09 +0000 Subject: [PATCH] Apply 1 suggestion(s) to 1 file(s) --- src/Handler/Material.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Handler/Material.hs b/src/Handler/Material.hs index dfe10d2d9..0b6fcc9cf 100644 --- a/src/Handler/Material.hs +++ b/src/Handler/Material.hs @@ -153,7 +153,7 @@ getMaterialListR tid ssh csh = do , (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.%))) - , (singletonMap "searchTypeAndDescription". FilterColumn $ \material criterion -> case getLast (criterion :: Last Text) of + , (singletonMap "type-and-description". FilterColumn $ \material criterion -> case getLast (criterion :: Last Text) of Nothing -> E.val True :: E.SqlExpr (E.Value Bool) Just needle -> (E.maybe (E.val mempty) E.castString (material E.^. MaterialType) `E.ilike` (E.%) E.++. E.val needle E.++. (E.%)) E.||. (E.maybe (E.val mempty) (E.castString.esqueletoMarkupOutput) (material E.^. MaterialDescription) `E.ilike` (E.%) E.++. E.val needle E.++. (E.%)))