From cae155b095e5182cc1b342b21f7430e40afe7ba8 Mon Sep 17 00:00:00 2001 From: Christian Despres <50160106+despresc@users.noreply.github.com> Date: Sun, 13 Sep 2020 10:48:14 -0400 Subject: Fix hlint suggestions, update hlint.yaml (#6680) * Fix hlint suggestions, update hlint.yaml Most suggestions were redundant brackets. Some required LambdaCase. The .hlint.yaml file had a small typo, and didn't ignore camelCase suggestions in certain modules. --- src/Text/Pandoc/Lua/Module/Utils.hs | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'src/Text/Pandoc/Lua/Module') diff --git a/src/Text/Pandoc/Lua/Module/Utils.hs b/src/Text/Pandoc/Lua/Module/Utils.hs index 4fe5e255d..988489a2a 100644 --- a/src/Text/Pandoc/Lua/Module/Utils.hs +++ b/src/Text/Pandoc/Lua/Module/Utils.hs @@ -50,9 +50,8 @@ pushModule = do -- | Squashes a list of blocks into inlines. blocksToInlines :: [Block] -> Lua.Optional [Inline] -> PandocLua [Inline] blocksToInlines blks optSep = liftPandocLua $ do - let sep = case Lua.fromOptional optSep of - Just x -> B.fromList x - Nothing -> Shared.defaultBlocksSeparator + let sep = maybe Shared.defaultBlocksSeparator B.fromList + $ Lua.fromOptional optSep return $ B.toList (Shared.blocksToInlinesWithSep sep blks) -- | Convert list of Pandoc blocks into sections using Divs. -- cgit v1.2.3