@@ -887,7 +887,7 @@ verbatimEnv' = fmap snd <$>
887887 string "\\begin"
888888 name <- braced'
889889 guard $ name `elem` ["verbatim", "Verbatim", "lstlisting",
890− "minted", "alltt"]
890+ "minted", "alltt", "comment"]
891891 manyTill anyChar (try $ string $ "\\end{" ++ name ++ "}")
892892
893893blob' :: IncludeParser
@@ -1040,6 +1040,7 @@ environments = M.fromList
10401040 , ("code", guardEnabled Ext_literate_haskell *>
10411041 (codeBlockWith ("",["sourceCode","literate","haskell"],[]) <$>
10421042 verbEnv "code"))
1043+ , ("comment", mempty <$ verbEnv "comment")
10431044 , ("verbatim", codeBlock <$> verbEnv "verbatim")
10441045 , ("Verbatim", do options <- option [] keyvals
10451046 let kvs = [ (if k == "firstnumber"