Changeset 4285 for src/Pugs/Types/Code.hs

Timestamp:

06/02/05 00:33:07 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

5861

Message:

* "Pointy" is now of type Block, and "Bare" of type Bare.

Files:

• src/Pugs/Types/Code.hs (modified) (1 diff)

src/Pugs/Types/Code.hs

@@ -26 +26 @@
     -- XXX - subType should really just be a mkType itself
     code_iType c  = case subType c of
-        SubBlock    -> mkType "Block"
+        SubBlock    -> mkType "Bare"
+        SubPointy   -> mkType "Block"
         SubMethod   -> mkType "Method"
         _           -> mkType "Sub"