Changeset 12422 for src/Pugs/AST.hs

Timestamp:

08/18/06 20:47:21 (2 years ago)

Author:

audreyt

Message:

* Glorious refactoring of the SubAssoc? type.

Instead of using a string such as "left" "right" "non", we now
use the SubAssoc? type, which simplified the logic in many places.

Files:

• src/Pugs/AST.hs (modified) (3 diffs)

src/Pugs/AST.hs

@@ -167 +167 @@
     doMakeVar name = MkVar
         { v_sigil   = SCode
-        , v_twigil  = TNone
+        , v_twigil  = TNil
         , v_package = emptyPkg
         , v_categ   = cat
@@ -221 +221 @@
     , _underscore == v_name var
     , emptyPkg    == v_package var
-    , TNone       == v_twigil var
+    , TNil        == v_twigil var
     = True
 isEmptyParams _ = False
@@ -268 +268 @@
     , subEnv        = Nothing
     , subType       = SubMacro
-    , subAssoc      = "pre"
+    , subAssoc      = ANil
     , subReturns    = typ
     , subLValue     = False