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: Muse writer: never wrap definition list terms

---
 src/Text/Pandoc/Writers/Muse.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Text')

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
-- 
cgit v1.2.3