diff --git a/src/Fake.hs b/src/Fake.hs index 9cc9a74..0f2d12d 100644 --- a/src/Fake.hs +++ b/src/Fake.hs @@ -364,6 +364,8 @@ 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" [])) = randomDouble (DoubleLiteral 0) (DoubleLiteral 1.7976931348623157E308) +eval (FunctionCall (Function "randomDouble" [upper])) = randomDouble (DoubleLiteral 0) upper eval (FunctionCall (Function "randomDouble" [lower, upper])) = randomDouble lower upper eval (FunctionCall (Function "randomDate" [])) = dayAsValue <$> randomDate Nothing Nothing eval (FunctionCall (Function "randomDate" [lower, upper])) = do