Changeset 12459 for src/Pugs/Val
- Timestamp:
- 08/19/06 15:20:16 (2 years ago)
- Location:
- src/Pugs/Val
- Files:
-
- 2 modified
Legend:
- Unmodified
- Added
- Removed
-
src/Pugs/Val/Base.hs
r12212 r12459 16 16 -- Plan: Each prim type has a static fixed META class 17 17 18 class (Monad m, Functor m, Eq a, Data a,Typeable a) => ICoercible m a | a -> m where18 class (Monad m, Functor m, Typeable a) => ICoercible m a | a -> m where 19 19 asBit :: a -> m PureBit 20 20 asBit _ = return $ cast True -
src/Pugs/Val/Code.hs
r12201 r12459 40 40 , c_isSafe :: Bool 41 41 } 42 deriving (Show, Eq, Ord, Data,Typeable) {-!derive: YAML_Pos, Perl6Class, MooseClass!-}42 deriving (Show, Eq, Ord, Typeable) {-!derive: YAML_Pos, Perl6Class, MooseClass!-} 43 43 44 44 -- | Block exit traits may be interleaved, so tag them by type … … 47 47 | LeaveKeep Code -- ^ KEEP block 48 48 | LeaveUndo Code -- ^ UNDO block 49 deriving (Show, Eq, Ord, Data,Typeable) {-!derive: YAML_Pos, Perl6Class, MooseClass!-}49 deriving (Show, Eq, Ord, Typeable) {-!derive: YAML_Pos, Perl6Class, MooseClass!-} 50 50 51 51 -- | Function associtivity … … 56 56 | AssChain 57 57 | AssList 58 deriving (Show, Eq, Ord, Data,Typeable) {-!derive: YAML_Pos, Perl6Class, MooseClass!-}58 deriving (Show, Eq, Ord, Typeable) {-!derive: YAML_Pos, Perl6Class, MooseClass!-} 59 59 60 60 -------------------------------------------------------------------------------------- … … 86 86 , s_slurpyCapture :: Maybe Param 87 87 } 88 deriving (Show, Eq, Ord, Data,Typeable) {-!derive: YAML_Pos, Perl6Class, MooseClass!-}88 deriving (Show, Eq, Ord, Typeable) {-!derive: YAML_Pos, Perl6Class, MooseClass!-} 89 89 90 90 type PureSig = Sig … … 112 112 , p_isRef :: Bool 113 113 , p_isLazy :: Bool 114 } deriving (Show, Eq, Ord, Data,Typeable) {-!derive: YAML_Pos, Perl6Class, MooseClass!-}114 } deriving (Show, Eq, Ord, Typeable) {-!derive: YAML_Pos, Perl6Class, MooseClass!-} 115 115 116 116 data ParamAccess … … 118 118 | AccessRW 119 119 | AccessCopy 120 deriving (Show, Eq, Ord, Data,Typeable) {-!derive: YAML_Pos, Perl6Class, MooseClass!-}120 deriving (Show, Eq, Ord, Typeable) {-!derive: YAML_Pos, Perl6Class, MooseClass!-} 121 121 122 122 -------------------------------------------------------------------------------------- … … 131 131 { c_feeds :: [Feed a] 132 132 } 133 deriving (Show, Eq, Ord, Data,Typeable) {-!derive: YAML_Pos, Perl6Class, MooseClass!-}133 deriving (Show, Eq, Ord, Typeable) {-!derive: YAML_Pos, Perl6Class, MooseClass!-} 134 134 135 135 -- | non-invocant arguments. … … 139 139 -- @x, "x => 1, x => 2" constructs @x = (1, 2). 140 140 } 141 deriving (Show, Eq, Ord, Data,Typeable) {-!derive: YAML_Pos, Perl6Class, MooseClass!-}141 deriving (Show, Eq, Ord, Typeable) {-!derive: YAML_Pos, Perl6Class, MooseClass!-} 142 142 143 143
