Changeset 15424

Timestamp:

03/03/07 15:17:08 (21 months ago)

Author:

gaal

Message:

* flip order in defaults and user-defined methods, to allow static

overriding of WHICH etc.

Files:

• src/Pugs/Class.hs (modified) (2 diffs)

src/Pugs/Class.hs

@@ -75 +75 @@
     }
 
+-- variant of @mkBoxClass@ meant to be called with the fixed-point
+-- combinator, that adds the standard HOW and WHICH methods. E.g.:
+--    _StrClass = fix $ mkBoxPureClass "Str" [Str methods]
 mkBoxPureClass :: forall a1 (m :: * -> *) a (m1 :: * -> *).
     ( Boxable m a1
@@ -84 +87 @@
     mkBoxClass cls methods'
     where
-    methods' = methods ++
+    methods' = flip (++) methods
         [ "HOW"         ... const self
         , "WHAT"        ... const (raiseWhatError ("Can't access attributes of prototype: " ++ cls) `asTypeOf` self)