From dc64b5e6645c9ab7ea66942f06b827b7228b015e Mon Sep 17 00:00:00 2001
From: Neil Brown <neil@twistedsquare.com>
Date: Wed, 8 Apr 2009 12:13:07 +0000
Subject: [PATCH] Fixed the filename munging in the generated copy_ procs for
 records

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

diff --git a/transformations/SimplifyProcs.hs b/transformations/SimplifyProcs.hs
index 1e4b161..5f7466a 100644
--- a/transformations/SimplifyProcs.hs
+++ b/transformations/SimplifyProcs.hs
@@ -109,7 +109,8 @@ flattenAssign = pass "Flatten assignment"
 
     makeCopyProcName :: A.Name -> PassM A.Name
     makeCopyProcName n = do file <- getCompState >>* csCurrentFile
-                            return $ n {A.nameName = "copy_" ++ file ++ A.nameName n}
+                            let m = Meta (Just file) 0 0 
+                            return $ n {A.nameName = "copy_" ++ mungeMeta m ++ A.nameName n}
 
     complexAssign :: Meta -> A.Type -> A.Variable -> Meta -> A.Expression -> PassM A.Process
     complexAssign m t v m' e