From 123e199b2b77fec0149daa8b27cc1353a5cd564e Mon Sep 17 00:00:00 2001 From: Sarah Vaupel Date: Tue, 14 Dec 2021 20:57:59 +0100 Subject: [PATCH] chore: hlint --- src/Handler/Users.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Handler/Users.hs b/src/Handler/Users.hs index 01d46fc49..fd9d5823d 100644 --- a/src/Handler/Users.hs +++ b/src/Handler/Users.hs @@ -169,7 +169,7 @@ postUsersR = do ) , ( "user-ident", FilterColumn $ \user criterion -> case getLast (criterion :: Last Text) of Nothing -> E.val True :: E.SqlExpr (E.Value Bool) - Just needle -> (E.castString (user E.^. UserIdent) `E.ilike` (E.%) E.++. E.val needle E.++. (E.%)) + Just needle -> E.castString (user E.^. UserIdent) `E.ilike` (E.%) E.++. E.val needle E.++. (E.%) ) , ( "user-email", FilterColumn $ \user criterion -> case getLast (criterion :: Last Text) of Nothing -> E.val True :: E.SqlExpr (E.Value Bool)