From 73afce113b4dc06bc5c1c3b36ca94f6eb24cd109 Mon Sep 17 00:00:00 2001 From: Alexander Krotov Date: Sat, 6 Oct 2018 15:21:24 +0300 Subject: Moved Haddock comment in Muse reader --- src/Text/Pandoc/Readers/Muse.hs | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) (limited to 'src/Text') 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) -- cgit v1.2.3