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/Thunk.hs

    r2323 r2441  
    1 {-# OPTIONS_GHC -fglasgow-exts #-} 
    21 
    3 module Pugs.Types.Thunk where 
     2class (Typeable a) => ThunkClass a where 
     3    thunk_iType :: a -> Type 
     4    thunk_iType = const $ mkType "Thunk" 
     5    thunk_force :: a -> Eval Val 
    46 
    5 import {-# SOURCE #-} Pugs.AST 
    6 import Pugs.Internals 
    7 import Pugs.Types 
     7instance ThunkClass VThunk where 
     8    thunk_force (MkThunk c) = c 
    89 
    9 class (Typeable a) => Class a where 
    10     iType :: a -> Type 
    11     iType = const $ mkType "Thunk" 
    12     force :: a -> Eval Val