diff --git a/tst/Arith.hs b/tst/Arith.hs index 3cf3554..ea91311 100644 --- a/tst/Arith.hs +++ b/tst/Arith.hs @@ -48,7 +48,7 @@ instance Arbitrary ArithExpr where -- i don't feel like dealing with division at the moment [ IntA <$> int , NegateA <$> arbitrary - -- , IdA <$> arbitrary + , IdA <$> arbitrary , b (:+) , b (:-) , b (:*)