Support zero or 1 arg to randomInt

Making lower and upper or lower bound optional
mfussenegger · Jul 28, 2019 · 54b85b9 · 54b85b9
1 parent b1308b3
commit 54b85b9
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/src/Fake.hs b/src/Fake.hs
@@ -361,6 +361,8 @@ eval (FunctionCall (Function "ulid" [])) = getUlid
 eval (FunctionCall (Function "null" [])) = pure Null
 eval (FunctionCall (Function "randomBool" [])) = randomBool
 eval (FunctionCall (Function "randomChar" [])) = randomChar
+eval (FunctionCall (Function "randomInt" [])) = randomInt (IntLiteral 0) (IntLiteral 2147483647)
+eval (FunctionCall (Function "randomInt" [upper])) = randomInt (IntLiteral 0) upper
 eval (FunctionCall (Function "randomInt" [lower, upper])) = randomInt lower upper
 eval (FunctionCall (Function "randomDouble" [lower, upper])) = randomDouble lower upper
 eval (FunctionCall (Function "randomDate" [])) = dayAsValue <$> randomDate Nothing Nothing