Fix new GHC warning
commit8fe249da3be83b3f3ea301ed541895f2350d6846
authorHarendra Kumar <harendra@composewell.com>
dateFri 10 Mar 2023, 02:53 (4 years ago)
parent7846cb8
test/Streamly/Test/Data/Parser/ParserD.hs+1−1
@@ -127,7 +127,7 @@ eofFail :: Property
127127eofFail =
128128 forAll (chooseInt (1, max_length)) $ \list_length ->
129129 forAll (vectorOf list_length (chooseInt (min_value, max_value))) $ \ls ->
130− case runIdentity $S.parseD P.eof (S.fromList ls) of
130+ case runIdentity $ S.parseD P.eof (S.fromList ls) of
131131 Right _ -> False
132132 Left _ -> True
133133