From f8d3f3a999df1db6eb6828c6e8e254e4d4faca21 Mon Sep 17 00:00:00 2001
From: Alexander Krotov <ilabdsf@gmail.com>
Date: Wed, 12 Sep 2018 14:03:24 +0300
Subject: [PATCH] Muse writer: never wrap definition list terms
---
src/Text/Pandoc/Writers/Muse.hs | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
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