Fix list of keywords.

diff --git a/src/Parser.hs b/src/Parser.hs
index 4692dbcd433f94b400a286b6436409247354ae48..1cf5d06c232bf6e85b1fc23a1c28d6a6eb27876b 100644 (file)
--- a/src/Parser.hs
+++ b/src/Parser.hs
@@ -8,8 +8,9 @@ import Text.Parsec.Token
 import Text.Parsec.Language
 
 oflKeywords :: [String]
-oflKeywords = map show [minBound::IndexType ..] ++ 
-  map show [minBound::BaseType ..] ++ 
+oflKeywords = 
+  map toOFLString [minBound::IndexType ..] ++ 
+  map toOFLString [minBound::BaseType ..] ++ 
   ["^", "+", "-", "*", "/", "=", "laplacian", "inner", "sum", "derivative", "r", "target"]
 
 oflDef :: LanguageDef st