Add a null provider

mfussenegger · Dec 9, 2018 · 560f0b4 · 560f0b4
1 parent a9a6b45
commit 560f0b4
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 0 deletions.
diff --git a/README.md b/README.md
@@ -19,6 +19,7 @@ a field within the JSON object.
 
  - uuid1
  - uuid4
+ - null
  - randomInt(lower, upper)
  - randomDouble(lower, upper)
  - array(expr [, ...])

diff --git a/src/Fake.hs b/src/Fake.hs
@@ -165,6 +165,7 @@ eval (StringLiteral x) = pure $ String x
 eval (DoubleLiteral x) = pure $ Number x
 eval (FunctionCall "uuid4" []) = String . UUID.toText <$> withStdGen random
 eval (FunctionCall "uuid1" []) = String . UUID.toText <$> uuid1
+eval (FunctionCall "null" []) = pure Null
 eval (FunctionCall "randomInt" [lower, upper]) = randomInt lower upper
 eval (FunctionCall "randomDouble" [lower, upper]) = randomDouble lower upper
 eval (FunctionCall "array" args) = Array . V.fromList <$> mapM eval args
-Original file line number
+Diff line change
@@ Expand Up / @@ -19,6 +19,7 @@ a field within the JSON object. @@
      - uuid1
      - uuid4
+     - null
      - randomInt(lower, upper)
      - randomDouble(lower, upper)
      - array(expr [, ...])
@@ Expand Down @@