@@ -127,7 +127,7 @@ eofFail :: Property
128 forAll (chooseInt (1, max_length)) $ \list_length ->
128 forAll (chooseInt (1, max_length)) $ \list_length ->
129 forAll (vectorOf list_length (chooseInt (min_value, max_value))) $ \ls ->
129 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
131 Right _ -> False
131 Right _ -> False
132 Left _ -> True
132 Left _ -> True