Add a ulid provider

README.md

@@ -19,6 +19,7 @@ a field within the JSON object.
 
  - uuid1
  - uuid4
+ - ulid
  - null
  - randomBool
  - randomChar

package.yaml

@@ -38,6 +38,7 @@ dependencies:
   - regex-tdfa
   - optparse-applicative
   - time
+  - ulid
 
 library:
   source-dirs: src

src/Fake.hs

@@ -31,6 +31,9 @@ import           Data.Time.Calendar         (Day (..), showGregorian)
 import           Data.Time.Clock            (UTCTime (..), secondsToDiffTime)
 import           Data.Time.Format           (defaultTimeLocale, formatTime,
                                              iso8601DateFormat, parseTimeM)
+import qualified Data.ULID                  as ULID
+import           Data.ULID.Random           (mkULIDRandom)
+import           Data.ULID.TimeStamp        (getULIDTimeStamp)
 import qualified Data.UUID                  as UUID
 import qualified Data.UUID.V1               as UUID1
 import qualified Data.Vector                as V
@@ -333,6 +336,12 @@ dayAsValue :: Day -> Value
 dayAsValue = String . T.pack . showGregorian
 
 
+getUlid :: Fake Value
+getUlid = ULID.ULID
+  <$> liftIO getULIDTimeStamp <*> State.state mkULIDRandom
+  <&> String . T.pack . show
+
+
 -- | Create a value getter for an expression
 --
 -- >>> exec "uuid4"
@@ -347,6 +356,7 @@ eval (StringLiteral x) = pure $ String x
 eval (DoubleLiteral x) = pure $ Number x
 eval (FunctionCall "uuid4" []) = String . UUID.toText <$> State.state random
 eval (FunctionCall "uuid1" []) = String . UUID.toText <$> liftIO uuid1
+eval (FunctionCall "ulid" []) = getUlid
 eval (FunctionCall "null" []) = pure Null
 eval (FunctionCall "randomBool" []) = randomBool
 eval (FunctionCall "randomChar" []) = randomChar

stack.yaml

@@ -4,4 +4,6 @@ resolver: lts-13.0
 packages:
   - .
 
-extra-deps: []
+extra-deps:
+  - ulid-0.2.0.0@sha256:ac415298b0272479909ca576f4444862ae942ed85c7849fa0675e3bf496be6f3
+  - crockford-0.2@sha256:6ec593711a20bd4b81a0fc13f3d850d2d890690941d777230fbf980c483e434a