Apply hlint suggestions

Author: pcapriotti

services/brig/src/Brig/API/Auth.hs

@@ -216,10 +216,9 @@ handleTokenError =
 
 handleTokenErrors :: [Either Text a] -> Handler r [a]
 handleTokenErrors ts = case partitionEithers ts of
-  ((e : _), []) ->
-    ( throwStd
-        . Wai.mkError status403 "client-error"
-        . LT.fromStrict
-        $ e
-    )
+  (e : _, []) ->
+    throwStd
+      . Wai.mkError status403 "client-error"
+      . LT.fromStrict
+      $ e
   (_, vs) -> pure vs

services/brig/src/Brig/API/Public/Swagger.hs

@@ -1,5 +1,3 @@
-{-# LANGUAGE TemplateHaskell #-}
-
 module Brig.API.Public.Swagger
   ( SwaggerDocsAPI,
     pregenSwagger,

services/brig/src/Brig/Provider/API.hs

@@ -724,7 +724,7 @@ deleteAccountH ::
   ExceptT Error (AppT r) Response
 deleteAccountH (pid ::: req) = do
   guardSecondFactorDisabled Nothing
-  empty <$ (mapExceptT wrapHttpClient $ deleteAccount pid =<< parseJsonBody req)
+  empty <$ mapExceptT wrapHttpClient (deleteAccount pid =<< parseJsonBody req)
 
 deleteAccount ::
   ( MonadReader Env m,

services/brig/test/integration/API/User/Client.hs

@@ -444,7 +444,7 @@ testClientsWithoutPrekeys brig cannon db opts = do
       !!! do
         const 200 === statusCode
         const
-          ( Right $
+          ( Right
               ( expectedClientMap
                   domain
                   uid1