diff options
Diffstat (limited to 'src/Text/Pandoc/Lua/Marshaling')
| -rw-r--r-- | src/Text/Pandoc/Lua/Marshaling/AST.hs | 4 |
1 files changed, 1 insertions, 3 deletions
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 |