github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-25 07:55:12 +03:00
Code Issues Projects Releases Wiki Activity

arbitraryLeaf produces a Source.

Browse Source
This commit is contained in:
Rob Rix 2015-12-23 22:27:48 -05:00
parent 5e8e9bda5f
commit f1ab391423
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
test/SplitSpec.hs
View File

@ -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)