git.iko.soy/elk
on master help sign in
really didn't need this
bb3e4caJohn P Mayer Jr
tests/Tests/Property/Arbitrary.hs−3
compare with master
unifiedsplit
@@ -98,9 +98,6 @@ capVar = notReserved $ (:) <$> upper <*> listOf varLetter
98varLetter :: Gen Char
98varLetter :: Gen Char
99varLetter = elements $ ['a'..'z'] ++ ['A'..'Z'] ++ ['0'..'9'] ++ ['\'', '_']
99varLetter = elements $ ['a'..'z'] ++ ['A'..'Z'] ++ ['0'..'9'] ++ ['\'', '_']
100
100
101−maybeOf :: Gen a -> Gen (Maybe a)
102−maybeOf g = oneof [ pure Nothing, Just <$> g ]
103−
104notReserved :: Gen String -> Gen String
101notReserved :: Gen String -> Gen String
105notReserved = flip exceptFor Parse.Helpers.reserveds
102notReserved = flip exceptFor Parse.Helpers.reserveds
106
103