From 775d3c81632c07a402e52e5376d1b834a14e358e Mon Sep 17 00:00:00 2001
From: Francis Russell <francis@unchartedbackwaters.co.uk>
Date: Thu, 20 Sep 2012 17:58:46 +0100
Subject: [PATCH] Fix list of keywords.

---
 src/Parser.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

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
-- 
2.47.3