[hoc-cvs] [hoc commit] r330 - trunk/hoc/HOC/HOC

[<cod...@go...>]

Author: wol...@gm...
Date: Tue Oct  7 16:04:51 2008
New Revision: 330

Modified:
    trunk/hoc/HOC/HOC/CEnum.hs

Log:
Clarify a comment.


Modified: trunk/hoc/HOC/HOC/CEnum.hs
==============================================================================
--- trunk/hoc/HOC/HOC/CEnum.hs	(original)
+++ trunk/hoc/HOC/HOC/CEnum.hs	Tue Oct  7 16:04:51 2008
@@ -30,8 +30,9 @@
  --  name1 = Name1
  --  name2 = Name2
  --  ...
---where all the names are more or less transformed by mkName .  
nameToUppercase
---I don't know why there is both the constructors and the literal names.
+-- where all the names are more or less transformed by mkName .  
nameToUppercase
+-- Constants (with lowercase names) are also provided for people who want  
to
+-- hide the difference between "proper" enums and anonymous enums (see  
below).

  declareCEnum name assocs
      = sequence $ [