diff --git a/src/Fake.hs b/src/Fake.hs index facfe1a..9cc9a74 100644 --- 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