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)