@@ -1091,15 +1091,13 @@ endline = try $ do
1092 notFollowedBy blankline
1092 notFollowedBy blankline
1093 st <- getState
1093 st <- getState
1094− if stateStrict st
1094+ when (stateStrict st) $ do
1095− then do notFollowedBy emailBlockQuoteStart
1095+ notFollowedBy emailBlockQuoteStart
1096− notFollowedBy (char '#') -- atx header
1096+ notFollowedBy (char '#') -- atx header
1098 -- parse potential list-starts differently if in a list:
1097 -- parse potential list-starts differently if in a list:
1099− if stateParserContext st == ListItemState
1098+ when (stateParserContext st == ListItemState) $ do
1100− then notFollowedBy' (bulletListStart <|>
1099+ notFollowedBy' bulletListStart
1101− (anyOrderedListStart >> return ()))
1100+ notFollowedBy' anyOrderedListStart
1103 return Space
1101 return Space