We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
1 parent 15bfb53 commit 10e5e0aCopy full SHA for 10e5e0a
1 file changed
test/Tests/Vector.hs
@@ -280,7 +280,7 @@ prop_nthBit_6 :: NonNegative Int -> U.Vector Bit -> Property
280
prop_nthBit_6 (NonNegative n) xs = ioProperty $ do
281
ret <- try (evaluate (nthBitIndex (Bit True) (-n) xs))
282
pure $ property $ case ret of
283
- Left ErrorCallWithLocation{} -> True
+ Left ErrorCall{} -> True
284
_ -> False
285
286
case_nthBit_1 :: Property
0 commit comments