File tree Expand file tree Collapse file tree 1 file changed +4
-4
lines changed
Expand file tree Collapse file tree 1 file changed +4
-4
lines changed Original file line number Diff line number Diff line change @@ -46,8 +46,8 @@ testStringCodePoints = do
4646 assert $ drop 8 str == " "
4747
4848 log " dropWhile"
49- assert $ dropWhile (\c -> true ) str == " "
50- assert $ dropWhile (\c -> false ) str == str
49+ assert $ dropWhile (\_ -> true ) str == " "
50+ assert $ dropWhile (\_ -> false ) str == str
5151 assert $ dropWhile (\c -> codePointToInt c < 0xFFFF ) str == " \x16805\x16A06 \& z"
5252 assert $ dropWhile (\c -> codePointToInt c < 0xDC00 ) str == " \xDC00\xD800\xD800\x16805\x16A06 \& z"
5353
@@ -161,8 +161,8 @@ testStringCodePoints = do
161161 assert $ take 8 str == str
162162
163163 log " takeWhile"
164- assert $ takeWhile (\c -> true ) str == str
165- assert $ takeWhile (\c -> false ) str == " "
164+ assert $ takeWhile (\_ -> true ) str == str
165+ assert $ takeWhile (\_ -> false ) str == " "
166166 assert $ takeWhile (\c -> codePointToInt c < 0xFFFF ) str == " a\xDC00\xD800\xD800 "
167167 assert $ takeWhile (\c -> codePointToInt c < 0xDC00 ) str == " a"
168168
You can’t perform that action at this time.
0 commit comments