diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2018-09-12 14:03:24 +0300 |
|---|---|---|
| committer | Alexander Krotov <ilabdsf@gmail.com> | 2018-09-12 14:03:24 +0300 |
| commit | f8d3f3a999df1db6eb6828c6e8e254e4d4faca21 (patch) | |
| tree | f5eaf62fbfda5320fd2fd8628eae0583c496061b /src/Text/Pandoc/Writers/Muse.hs | |
| parent | 3f8891b26ffd27d5d71318a5b16bfc07d29daadc (diff) | |
| download | pandoc-f8d3f3a999df1db6eb6828c6e8e254e4d4faca21.tar.gz | |
Muse writer: never wrap definition list terms
Diffstat (limited to 'src/Text/Pandoc/Writers/Muse.hs')
| -rw-r--r-- | src/Text/Pandoc/Writers/Muse.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/Muse.hs b/src/Text/Pandoc/Writers/Muse.hs index 13c9c23b7..8fafdba91 100644 --- a/src/Text/Pandoc/Writers/Muse.hs +++ b/src/Text/Pandoc/Writers/Muse.hs @@ -234,7 +234,7 @@ blockToMuse (DefinitionList items) = do label' <- local (\env -> env { envOneLine = True, envAfterSpace = True }) $ inlineListToMuse' label contents <- vcat <$> mapM descriptionToMuse defs let ind = offset label' - return $ hang ind label' contents + return $ hang ind (nowrap label') contents descriptionToMuse :: PandocMonad m => [Block] -> Muse m Doc |