mirror of
https://github.com/github/semantic.git
synced 2024-11-28 18:23:44 +03:00
13 lines
332 B
Haskell
13 lines
332 B
Haskell
|
{-# LANGUAGE TypeFamilies #-}
|
||
|
|
module Generators
|
||
|
|
( source
|
||
|
|
) where
|
||
|
|
|
||
|
|
import Hedgehog
|
||
|
|
import qualified Hedgehog.Gen as Gen
|
||
|
|
import qualified Data.Source
|
||
|
|
import Data.Functor.Identity
|
||
|
|
|
||
|
|
source :: (GenBase m ~ Identity, MonadGen m) => Hedgehog.Range Int -> m Data.Source.Source
|
||
|
|
source r = Data.Source.fromUTF8 <$> Gen.utf8 r Gen.unicode
|