@@ -1181,19 +1181,14 @@ blockWithQuotes isEsc isQuote bopen bclose
11811181 $ if a == bopen
11821182 then Continue 0 $ BlockUnquoted 1 s
11831183 else Error "blockWithQuotes: missing block start"
1184− step (BlockUnquoted level s) a =
1185− if a == bopen
1186− then process s a (BlockUnquoted (level + 1))
1187− else
1188− if a == bclose
1189− then
1190− if level == 1
1191− then fmap (Done 0) (fextract s)
1192− else process s a (BlockUnquoted (level - 1))
1193− else
1194− if isQuote a
1195− then process s a (BlockQuoted level)
1196− else process s a (BlockUnquoted level)
1184+ step (BlockUnquoted level s) a
1185+ | a == bopen = process s a (BlockUnquoted (level + 1))
1186+ | a == bclose =
1187+ if level == 1
1188+ then fmap (Done 0) (fextract s)
1189+ else process s a (BlockUnquoted (level - 1))
1190+ | isQuote a = process s a (BlockQuoted level)
1191+ | otherwise = process s a (BlockUnquoted level)
11971192 step (BlockQuoted level s) a
11981193 | isEsc a = process s a (BlockQuotedEsc level)
11991194 | otherwise =