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