Muse writer: never wrap definition list terms

2018-09-12 14:03:24 +03:00 · 2018-09-12 14:03:24 +03:00 · f8d3f3a999
commit f8d3f3a999
parent 3f8891b26f
1 changed files with 1 additions and 1 deletions
--- 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