2b43437 · streamly · git.iko.soy

git.iko.soy/streamly

on master help sign in

Fix hlint for blockWithQuotes

2b43437Harendra Kumar4 years ago

core/src/Streamly/Internal/Data/Parser/ParserD.hs+8−13

@@ -1181,19 +1181,14 @@ blockWithQuotes isEsc isQuote bopen bclose

1181 $ if a == bopen

1182 then Continue 0 $ BlockUnquoted 1 s

1183 else Error "blockWithQuotes: missing block start"

1184− step (BlockUnquoted level s) a =

1184+ step (BlockUnquoted level s) a

1185− if a == bopen

1186− then process s a (BlockUnquoted (level + 1))

1185+ | a == bopen = process s a (BlockUnquoted (level + 1))

1187− else

1188− if a == bclose

1186+ | a == bclose =

1189− then

1190− if level == 1

1187+ if level == 1

1191− then fmap (Done 0) (fextract s)

1188+ then fmap (Done 0) (fextract s)

1192− else process s a (BlockUnquoted (level - 1))

1189+ else process s a (BlockUnquoted (level - 1))

1193− else

1194− if isQuote a

1195− then process s a (BlockQuoted level)

1190+ | isQuote a = process s a (BlockQuoted level)

1196− else process s a (BlockUnquoted level)

1191+ | otherwise = process s a (BlockUnquoted level)

1197 step (BlockQuoted level s) a

1192 step (BlockQuoted level s) a

1198 | isEsc a = process s a (BlockQuotedEsc level)

1193 | isEsc a = process s a (BlockQuotedEsc level)

1199 | otherwise =

1194 | otherwise =