From 78c2160eb4a769b62d7f80b85c571391d867b276 Mon Sep 17 00:00:00 2001
From: Neil Brown <neil@twistedsquare.com>
Date: Sun, 23 Mar 2008 00:11:11 +0000
Subject: [PATCH] Fixed the type of a function name to avoid confusing the pass
 to remove free names later on

---
 frontends/ParseRain.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/frontends/ParseRain.hs b/frontends/ParseRain.hs
index 277eade..ed7ee84 100644
--- a/frontends/ParseRain.hs
+++ b/frontends/ParseRain.hs
@@ -294,7 +294,8 @@ functionCall =  do funcName <- name
                      Just _ -> return $ A.IntrinsicFunctionCall (A.nameMeta
                        funcName) (A.nameName funcName) es
                      Nothing -> return $
-                       A.FunctionCall (A.nameMeta funcName) funcName es
+                       A.FunctionCall (A.nameMeta funcName)
+                         (funcName {A.nameType = A.FunctionName}) es
 
 data InnerBlockLineState = Decls | NoMoreDecls | Mixed deriving (Eq)