fix specialIdGen to avoid reserved words. Solves #151

statebox · Aug 15, 2019 · e6f06a1 · e6f06a1
1 parent c8cc768
commit e6f06a1
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/src/Language/Parser/Generator/Generator.hs b/src/Language/Parser/Generator/Generator.hs
@@ -51,7 +51,10 @@ lowerIdGen =
       (`notElem` reservedWords)
 
 specialIdGen :: Gen String
-specialIdGen = (:) <$> idCharGen <*> listOf (oneof [idCharGen, digitCharGen])
+specialIdGen =
+  ((:) <$> idCharGen <*>
+    listOf (oneof [idCharGen, digitCharGen])) `suchThat`
+      (`notElem` reservedWords)
 
 identifierGen :: Gen String
 identifierGen = oneof [lowerIdGen, upperIdGen, specialIdGen]