mirror of
https://github.com/github/semantic.git
synced 2024-12-25 07:55:12 +03:00
Children contain asterisks and newlines.
This commit is contained in:
parent
b0c0f13b61
commit
f8e007bb46
@ -188,8 +188,9 @@ data Child = Child
|
||||
}
|
||||
|
||||
instance Arbitrary Child where
|
||||
arbitrary = Child <$> key <*> arbitrary <*> margin
|
||||
arbitrary = Child <$> key <*> contents <*> margin
|
||||
where key = listOf1 (elements (['a'..'z'] ++ ['A'..'Z'] ++ ['0'..'9']))
|
||||
contents = listOf (elements "*\n")
|
||||
margin = listOf (elements " \n")
|
||||
|
||||
counts :: [Join These (Int, a)] -> Both Int
|
||||
|
Loading…
Reference in New Issue
Block a user