Changeset 8207 for src/Pugs/AST/Internals.hs

Timestamp:

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

Author:

gaal

Message:

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

Files:

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

src/Pugs/AST/Internals.hs

@@ -13 +13 @@
     EvalT(..), ContT(..),
 
-    Pad(..), -- uses Var, TVar, VRef
+    Pad(..), PadMutator, -- uses Var, TVar, VRef
     Param(..), -- uses Cxt, Exp
     Params, -- uses Param
@@ -1159 +1159 @@
 listToPad = MkPad . Map.fromList
 
+-- | type for a function introducing a change to a Pad
+type PadMutator = (Pad -> Pad)
+
 {- Eval Monad -}
 -- type Eval x = EvalT (ContT Val (ReaderT Env SIO)) x