diff options
| -rw-r--r-- | src/Text/Pandoc/Readers/Muse.hs | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/src/Text/Pandoc/Readers/Muse.hs b/src/Text/Pandoc/Readers/Muse.hs index 418ba71f2..134598c07 100644 --- a/src/Text/Pandoc/Readers/Muse.hs +++ b/src/Text/Pandoc/Readers/Muse.hs @@ -98,12 +98,11 @@ instance Default MuseState where } data MuseEnv = - MuseEnv { museInLink :: Bool } + MuseEnv { museInLink :: Bool -- ^ True when parsing a link description to avoid nested links + } instance Default MuseEnv where - def = MuseEnv { museInLink = False - -- True when parsing a link description to avoid nested links - } + def = MuseEnv { museInLink = False } type MuseParser m = ParserT Text MuseState (ReaderT MuseEnv m) |