ready?

2024-02-13 12:52:06 -07:00
parent 8267548fab
commit 4c9ceb74d1
4 changed files with 8 additions and 4 deletions
--- a/tst/Arith.hs
+++ b/tst/Arith.hs
@@ -41,6 +41,7 @@ evalArith (a ::* b)   = evalArith a * evalArith b
 evalArith (a ::- b)   = evalArith a - evalArith b

 instance Arbitrary ArithExpr where
+    -- TODO: implement shrink
    arbitrary = gen 4
        where
            gen :: Int -> Gen ArithExpr