From 432d406f26977aa653bf1088264e8442f992fb2a Mon Sep 17 00:00:00 2001
From: Adam Sampson <ats@offog.org>
Date: Wed, 1 Aug 2007 23:08:21 +0000
Subject: [PATCH] Fix an oddity Neil flagged -- yes, there is a nicer syntax
 for updating structures

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

diff --git a/GenerateCPPCSP.hs b/GenerateCPPCSP.hs
index bdf684e..a64688c 100644
--- a/GenerateCPPCSP.hs
+++ b/GenerateCPPCSP.hs
@@ -987,10 +987,9 @@ cppgenType ops t
         Nothing -> call genMissing ops $ "genType " ++ show t
 
 
---Helper function for prefixing an underscore (looks like fairly ugly Haskell - maybe there is an easier way?)
--- FIXME: Yes, there is
+--Helper function for prefixing an underscore 
 prefixUnderscore :: A.Name -> A.Name
-prefixUnderscore n = A.Name {A.nameMeta = A.nameMeta n, A.nameType = A.nameType n, A.nameName = "_" ++ A.nameName n}
+prefixUnderscore n = n { A.nameName = "_" ++ A.nameName n }
 
 
 -- | Generate the right-hand side of an abbreviation of a variable.