From 38b0272555860dac3c348b21e280346328cd356e Mon Sep 17 00:00:00 2001
From: Neil Brown <neil@twistedsquare.com>
Date: Mon, 13 Aug 2007 15:58:44 +0000
Subject: [PATCH] Rain: changed the name parse function to not require the type
 of the name

---
 RainParse.hs | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/RainParse.hs b/RainParse.hs
index 25e8e40..2958516 100644
--- a/RainParse.hs
+++ b/RainParse.hs
@@ -144,12 +144,12 @@ md
                  metaColumn = sourceColumn pos
                }
 
-name :: A.NameType -> RainParser A.Name
-name nt
+name :: RainParser A.Name
+name 
     =   do m <- md
            s <- identifier
-           return $ A.Name m nt s
-    <?> show nt
+           return $ A.Name m (A.VariableName) s --A.VariableName is a placeholder until a later pass
+    <?> "name"
 
 --}}}
 
@@ -161,7 +161,7 @@ dataType
     <?> "data type"
 
 variableId :: RainParser A.Variable
-variableId = do {m <- md ; v <- (name A.VariableName) ; return $ A.Variable m v}
+variableId = do {m <- md ; v <- name ; return $ A.Variable m v}
              <?> "variable name"