Show
Ignore:
Timestamp:
04/28/05 18:38:12 (4 years ago)
Author:
autrijus
svk:copy_cache_prev:
3914
Message:

* AST.hs-boot elimianted!

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • src/Pugs/Types/Object.hs

    r2323 r2441  
    1 {-# OPTIONS_GHC -fglasgow-exts #-} 
    21 
    3 module Pugs.Types.Object where 
     2class (Typeable a) => ObjectClass a where 
     3    object_iType :: a -> Type 
    44 
    5 import Pugs.Internals 
    6 import Pugs.Types 
    7  
    8 class (Typeable a) => Class a where 
    9     iType :: a -> Type 
     5instance (Typeable a) => ObjectClass (IVar a) where 
     6    object_iType (IScalar x) = scalar_iType x 
     7    object_iType (IArray x)  = array_iType x 
     8    object_iType (IHash x)   = hash_iType x 
     9    object_iType (ICode x)   = code_iType x 
     10    object_iType (IHandle x) = handle_iType x 
     11    object_iType (IRule x)   = rule_iType x 
     12    object_iType (IThunk x)  = thunk_iType x 
     13    object_iType (IPair x)   = pair_iType x