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/Marshaling/AST.hs | 4 +---
1 file changed, 1 insertion(+), 3 deletions(-)
(limited to 'src/Text/Pandoc/Lua/Marshaling')
diff --git a/src/Text/Pandoc/Lua/Marshaling/AST.hs b/src/Text/Pandoc/Lua/Marshaling/AST.hs
index 7a75047ae..679dd1f46 100644
--- a/src/Text/Pandoc/Lua/Marshaling/AST.hs
+++ b/src/Text/Pandoc/Lua/Marshaling/AST.hs
@@ -230,9 +230,7 @@ peekCaption idx = do
instance Peekable ColWidth where
peek idx = do
width <- Lua.fromOptional <$> Lua.peek idx
- return $ case width of
- Nothing -> ColWidthDefault
- Just w -> ColWidth w
+ return $ maybe ColWidthDefault ColWidth width
instance Pushable ColWidth where
push = \case
--
cgit v1.2.3