Changeset 8207 for src/Pugs/AST.hs

Timestamp:

12/13/05 11:24:11 (3 years ago)

Author:

gaal

Message:

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

Files:

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

src/Pugs/AST.hs

@@ -101 +101 @@
 (Is this correct?)
 -}
-genMultiSym :: MonadSTM m => String -> VRef -> m (Pad -> Pad)
+genMultiSym :: MonadSTM m => String -> VRef -> m PadMutator
 genMultiSym name ref = do
     tvar    <- liftSTM $ newTVar ref
@@ -114 +114 @@
 (right?), shadowing any earlier or outer definition.
 -}
-genSym :: MonadSTM m => String -> VRef -> m (Pad -> Pad)
+genSym :: MonadSTM m => String -> VRef -> m PadMutator
 genSym name ref = do
     tvar    <- liftSTM $ newTVar ref