From: Francis Russell <francis@unchartedbackwaters.co.uk>
Date: Thu, 20 Sep 2012 16:58:46 +0000 (+0100)
Subject: Fix list of keywords.
X-Git-Url: https://git.unchartedbackwaters.co.uk/w/?a=commitdiff_plain;h=775d3c81632c07a402e52e5376d1b834a14e358e;p=francis%2Fofc.git

Fix list of keywords.
---

diff --git a/src/Parser.hs b/src/Parser.hs
index 4692dbc..1cf5d06 100644
--- 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