suzanne.soy/tock-mirror
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix an oddity Neil flagged -- yes, there is a nicer syntax for updating structures

Browse Source
This commit is contained in:
Adam Sampson 2007-08-01 23:08:21 +00:00
parent 687f6a10f6
commit 432d406f26
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
GenerateCPPCSP.hs
View File

@ -987,10 +987,9 @@ cppgenType ops t
Nothing -> call genMissing ops $ "genType " ++ show 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?) --Helper function for prefixing an underscore
-- FIXME: Yes, there is
prefixUnderscore :: A.Name -> A.Name 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. -- | Generate the right-hand side of an abbreviation of a variable.