diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2018-01-18 02:46:02 +0300 |
|---|---|---|
| committer | Alexander Krotov <ilabdsf@gmail.com> | 2018-01-18 02:46:02 +0300 |
| commit | 9986ccb3330847963532311e00f137dfb4a004e1 (patch) | |
| tree | 4b5782104c1bbb677778c15494421f951d2f190b /src/Text/Pandoc | |
| parent | ab85143e8aa94de8927208c7eefa1dbfa97666de (diff) | |
Muse reader: parse "~~" as non-breaking space in Text::Amuse mode
Latest Text::Amuse supports "~~"
Diffstat (limited to 'src/Text/Pandoc')
| -rw-r--r-- | src/Text/Pandoc/Readers/Muse.hs | 3 |
1 files changed, 1 insertions, 2 deletions
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" |