mirror of
https://github.com/github/semantic.git
synced 2024-12-24 23:42:31 +03:00
arbitraryLeaf produces a Source.
This commit is contained in:
parent
5e8e9bda5f
commit
f1ab391423
@ -28,7 +28,7 @@ instance Arbitrary a => Arbitrary (Line a) where
|
||||
instance Arbitrary a => Arbitrary (Source a) where
|
||||
arbitrary = makeSource <$> arbitrary
|
||||
|
||||
arbitraryLeaf :: Gen (String, Info, Syntax String f)
|
||||
arbitraryLeaf :: Gen (Source Char, Info, Syntax (Source Char) f)
|
||||
arbitraryLeaf = toTuple <$> arbitrary
|
||||
where toTuple string = (string, Info (Range 0 $ length string) mempty, Leaf string)
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user