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