From 9986ccb3330847963532311e00f137dfb4a004e1 Mon Sep 17 00:00:00 2001
From: Alexander Krotov <ilabdsf@gmail.com>
Date: Thu, 18 Jan 2018 02:46:02 +0300
Subject: Muse reader: parse "~~" as non-breaking space in Text::Amuse mode

Latest Text::Amuse supports "~~"
---
 src/Text/Pandoc/Readers/Muse.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'src/Text/Pandoc/Readers/Muse.hs')

diff --git a/src/Text/Pandoc/Readers/Muse.hs b/src/Text/Pandoc/Readers/Muse.hs
index abc194769..5d032608c 100644
--- a/src/Text/Pandoc/Readers/Muse.hs
+++ b/src/Text/Pandoc/Readers/Muse.hs
@@ -714,8 +714,7 @@ verbatimTag = do
   return $ return $ B.text content
 
 nbsp :: PandocMonad m => MuseParser m (F Inlines)
-nbsp = do
-  guardDisabled Ext_amuse -- Supported only by Emacs Muse
+nbsp = try $ do
   string "~~"
   return $ return $ B.str "\160"
 
-- 
cgit v1.2.3