@@ -71,7 +71,7 @@ data WriterEnv =
7171 , envTopLevel :: Bool
7272 , envInsideBlock :: Bool
7373 , envInlineStart :: Bool
74− , envInsideLinkDescription :: Bool -- Escape ] if True
74+ , envInsideLinkDescription :: Bool -- ^ Escape ] if True
7575 , envAfterSpace :: Bool
7676 }
7777