Support 0 or 1 arg to randomDouble

mfussenegger · Jul 28, 2019 · 12a30af · 12a30af
1 parent 54b85b9
commit 12a30af
Showing 1 changed file with 2 additions and 0 deletions.
diff --git 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