[clean up C.FromGrin2 some
John Meacham <john@repetae.net>**20070227112326] hunk ./C/FromGrin2.hs 4
-import qualified Text.PrettyPrint.HughesPJ as P
-import Text.PrettyPrint.HughesPJ(nest,($$))
-import Control.Monad.RWS
hunk ./C/FromGrin2.hs 5
+import Control.Monad.RWS
hunk ./C/FromGrin2.hs 9
+import Text.PrettyPrint.HughesPJ(nest,($$))
hunk ./C/FromGrin2.hs 12
+import qualified Text.PrettyPrint.HughesPJ as P
hunk ./C/FromGrin2.hs 16
+import C.Arch
hunk ./C/FromGrin2.hs 18
-import Support.FreeVars
hunk ./C/FromGrin2.hs 20
-import C.Arch
hunk ./C/FromGrin2.hs 30
+import Support.FreeVars
hunk ./C/FromGrin2.hs 52
-data Red = Red {
+data Env = Env {
hunk ./C/FromGrin2.hs 60
-newtype C a = C (RWST Red Written HcHash Uniq a)
-    deriving(Monad,UniqueProducer,MonadState HcHash,MonadWriter Written,MonadReader Red)
+newtype C a = C (RWST Env Written HcHash Uniq a)
+    deriving(Monad,UniqueProducer,MonadState HcHash,MonadWriter Written,MonadReader Env)
hunk ./C/FromGrin2.hs 65
-runC grin (C m) =  execUniq1 (runRWST m Red { rGrin = grin, rTodo = TodoNothing, rEMap = mempty } emptyHcHash)
+runC grin (C m) =  execUniq1 (runRWST m Env { rGrin = grin, rTodo = TodoNothing, rEMap = mempty } emptyHcHash)