hlint (#856)

morpheusgraphql · Apr 8, 2024 · c5fe660 · c5fe660
1 parent 144a98a
commit c5fe660
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/morpheus-graphql-code-gen/src/Data/Morpheus/CodeGen/Server/Interpreting/Transform.hs b/morpheus-graphql-code-gen/src/Data/Morpheus/CodeGen/Server/Interpreting/Transform.hs
@@ -151,7 +151,7 @@ mkPossibleTypesName = ("PossibleTypes" <>)
 
 genDirectiveDefinition :: CodeGenM m => DirectiveDefinition CONST -> m [ServerDeclaration]
 genDirectiveDefinition DirectiveDefinition {..} = do
-  fields <- traverse renderDataField (argument <$> toList directiveDefinitionArgs)
+  fields <- traverse (renderDataField . argument) (toList directiveDefinitionArgs)
   let typename = coerce directiveDefinitionName
   namespaceDirs <- getNamespaceDirs (unpackName typename)
   let cgTypeName = fromTypeName typename

diff --git a/morpheus-graphql-tests/src/Test/Morpheus.hs b/morpheus-graphql-tests/src/Test/Morpheus.hs
@@ -153,7 +153,7 @@ getAppsWIth ::
   [FilePath] ->
   IO b
 getAppsWIth f url [] = getAppBy f url
-getAppsWIth f url (x : xs) = sconcat <$> traverse (getAppBy f) (file url <$> (x :| xs))
+getAppsWIth f url (x : xs) = sconcat <$> traverse (getAppBy f . file url) (x :| xs)
 
 getAppsBy ::
   (Semigroup b, Show err, FromJSON resolvers) =>