From 527346cc7e2bc874092be2f6793001860e10a719 Mon Sep 17 00:00:00 2001 From: Albert Krewinkel Date: Sat, 7 Nov 2020 19:38:03 +0100 Subject: Lint code in PRs and when committing to master (#6790) * Remove unused LANGUAGE pragmata * Apply HLint suggestions * Configure HLint to ignore some warnings * Lint code when committing to master --- src/Text/Pandoc/Lua/Filter.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Text/Pandoc/Lua') diff --git a/src/Text/Pandoc/Lua/Filter.hs b/src/Text/Pandoc/Lua/Filter.hs index e626356d5..94d7adeb2 100644 --- a/src/Text/Pandoc/Lua/Filter.hs +++ b/src/Text/Pandoc/Lua/Filter.hs @@ -160,7 +160,7 @@ mconcatMapM :: (Monad m) => (a -> m [a]) -> [a] -> m [a] mconcatMapM f = fmap mconcat . mapM f hasOneOf :: LuaFilter -> [String] -> Bool -hasOneOf (LuaFilter fnMap) = any (\k -> Map.member k fnMap) +hasOneOf (LuaFilter fnMap) = any (`Map.member` fnMap) contains :: LuaFilter -> String -> Bool contains (LuaFilter fnMap) = (`Map.member` fnMap) -- cgit v1.2.3