@@ -98,12 +98,11 @@ instance Default MuseState where
100data MuseEnv =
100data MuseEnv =
101− MuseEnv { museInLink :: Bool }
101+ MuseEnv { museInLink :: Bool -- ^ True when parsing a link description to avoid nested links
103instance Default MuseEnv where
104instance Default MuseEnv where
104− def = MuseEnv { museInLink = False
105+ def = MuseEnv { museInLink = False }
105− -- True when parsing a link description to avoid nested links
108type MuseParser m = ParserT Text MuseState (ReaderT MuseEnv m)
107type MuseParser m = ParserT Text MuseState (ReaderT MuseEnv m)