Skip to content

Instantly share code, notes, and snippets.

@etorreborre

etorreborre/arbitrary-text.hs

Created May 11, 2019 11:10
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save etorreborre/dd599722f8d8dfc781a1bbd315561cfa to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save etorreborre/dd599722f8d8dfc781a1bbd315561cfa to your computer and use it in GitHub Desktop.
Download ZIP
Arbitrary Text
Raw
arbitrary-text.hs
-- reuse the Arbitrary instance for String
-- and make only small Text values
instance Arbitrary Text where
arbitrary = Text.take 5 . toS . arbitrary @String
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment