@@ -98,9 +98,6 @@ capVar = notReserved $ (:) <$> upper <*> listOf varLetter
9898varLetter :: Gen Char
9999varLetter = elements $ ['a'..'z'] ++ ['A'..'Z'] ++ ['0'..'9'] ++ ['\'', '_']
100100
101−maybeOf :: Gen a -> Gen (Maybe a)
102−maybeOf g = oneof [ pure Nothing, Just <$> g ]
103−
104101notReserved :: Gen String -> Gen String
105102notReserved = flip exceptFor Parse.Helpers.reserveds
106103