Changeset 8207 for src/Pugs/Prim.hs

Timestamp:

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

Author:

gaal

Message:

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

Files:

• src/Pugs/Prim.hs (modified) (3 diffs)

src/Pugs/Prim.hs

@@ -1312 +1312 @@
 -- The Pad symbol name is prefixed with \"&*\" for functions and
 -- \"&*\" ~ fixity ~ \":\" for operators.
-primOp :: String -> String -> Params -> String -> Bool -> STM (Pad -> Pad)
+primOp :: String -> String -> Params -> String -> Bool -> STM (PadMutator)
 primOp sym assoc prms ret isSafe =
     -- In safemode, we filter all prims marked as "unsafe".
@@ -1362 +1362 @@
 
 -- |Produce a Pad update transaction with 'primOp' from a string description
-primDecl :: String -> STM (Pad -> Pad)
+primDecl :: String -> STM PadMutator
 primDecl str = primOp sym assoc params ret (safe == "safe")
     where
@@ -1428 +1428 @@
 --
 -- >  ret_val   assoc   op_name [safe|unsafe] args
-initSyms :: STM [Pad -> Pad]
+initSyms :: STM [PadMutator]
 initSyms = mapM primDecl syms
     where