Changeset 8207 for src/Pugs/Run.hs

Show
Ignore:
Timestamp:
12/13/05 11:24:11 (3 years ago)
Author:
gaal
Message:

* minor refactoring: type PadMutator? = (Pad -> Pad)

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • src/Pugs/Run.hs

    r7843 r8207  
    165165    hideInSafemode x = if safeMode then MkRef $ constScalar undef else x 
    166166 
    167 initClassObjects :: [Type] -> ClassTree -> IO [STM (Pad -> Pad)] 
     167initClassObjects :: [Type] -> ClassTree -> IO [STM PadMutator] 
    168168initClassObjects parent (Node typ children) = do 
    169169    obj     <- createObject (mkType "Class") $