[clean up code
John Meacham <john@repetae.net>**20120117130114
 Ignore-this: 4a54281f66e3bdf82367b305793e4177
] hunk ./src/E/Main.hs 527
-    tv t = t { tvrType = boxify (tvrType t) }
+    _tv t = t { tvrType = boxify (tvrType t) }
hunk ./src/Grin/Devolve.hs 5
+import Data.Functor
hunk ./src/Grin/Devolve.hs 8
-import Data.Functor
hunk ./src/Grin/Devolve.hs 67
-
hunk ./src/Grin/Devolve.hs 159
-
hunk ./src/Grin/Devolve.hs 172
-
-
-
-
-
-
hunk ./src/Grin/FromE.hs 9
-import qualified Data.Set as Set
hunk ./src/Grin/FromE.hs 10
+import qualified Data.Set as Set
hunk ./src/Grin/FromE.hs 12
-import StringTable.Atom
hunk ./src/Grin/FromE.hs 14
+import Cmm.Op(ToCmmTy(..))
hunk ./src/Grin/FromE.hs 35
+import StringTable.Atom
hunk ./src/Grin/FromE.hs 38
+import Util.GMap
hunk ./src/Grin/FromE.hs 42
-import Util.GMap
hunk ./src/Grin/FromE.hs 44
-import Cmm.Op(ToCmmTy(..))
hunk ./src/Grin/FromE.hs 48
-
-
hunk ./src/Grin/FromE.hs 64
-
hunk ./src/Grin/FromE.hs 101
-
hunk ./src/Grin/FromE.hs 105
-
hunk ./src/Grin/FromE.hs 110
-
-
hunk ./src/Grin/FromE.hs 114
-
-
hunk ./src/Grin/FromE.hs 122
-
-
hunk ./src/Grin/FromE.hs 145
-
hunk ./src/Grin/FromE.hs 200
-
hunk ./src/Grin/FromE.hs 237
-
hunk ./src/Grin/FromE.hs 267
-
hunk ./src/Grin/FromE.hs 322
-
hunk ./src/Grin/FromE.hs 402
-
hunk ./src/Grin/FromE.hs 451
-
hunk ./src/Grin/FromE.hs 623
-
hunk ./src/Grin/FromE.hs 651
-
hunk ./src/Grin/FromE.hs 676
-
-
hunk ./src/Grin/FromE.hs 715
-
hunk ./src/Grin/FromE.hs 725
-
hunk ./src/Grin/FromE.hs 735
-
hunk ./src/Grin/Grin.hs 278
-
hunk ./src/Grin/Grin.hs 283
-
hunk ./src/Grin/Grin.hs 294
-
hunk ./src/Grin/Grin.hs 555
-
-
hunk ./src/Grin/Grin.hs 570
-
hunk ./src/Grin/Grin.hs 600
-
hunk ./src/Grin/Grin.hs 630
-
hunk ./src/Grin/Grin.hs 639
-
hunk ./src/Grin/Grin.hs 673
-
hunk ./src/Grin/Grin.hs 711
-
hunk ./src/Grin/Grin.hs 715
-
hunk ./src/Grin/Lint.hs 18
-import Support.FreeVars
hunk ./src/Grin/Lint.hs 19
-import Support.Transform
hunk ./src/Grin/Lint.hs 20
+import Support.FreeVars
+import Support.Transform
+import Text.Printf
hunk ./src/Grin/Lint.hs 25
-import Text.Printf
hunk ./src/Grin/Lint.hs 89
-
hunk ./src/Grin/Lint.hs 96
-
hunk ./src/Grin/Lint.hs 124
-
-
hunk ./src/Grin/Lint.hs 209
-
hunk ./src/Grin/Lint.hs 213
-
hunk ./src/Grin/Lint.hs 218
-
-
hunk ./src/Grin/Main.hs 74
-
-
hunk ./src/Grin/NodeAnalyze.hs 1
-
hunk ./src/Grin/NodeAnalyze.hs 8
-import Control.Monad.Trans
hunk ./src/Grin/NodeAnalyze.hs 10
+import Control.Monad.Trans
hunk ./src/Grin/NodeAnalyze.hs 29
-
-
hunk ./src/Grin/NodeAnalyze.hs 34
-
hunk ./src/Grin/NodeAnalyze.hs 50
-
hunk ./src/Grin/NodeAnalyze.hs 57
-
hunk ./src/Grin/NodeAnalyze.hs 102
-
hunk ./src/Grin/NodeAnalyze.hs 127
-
hunk ./src/Grin/NodeAnalyze.hs 239
-
hunk ./src/Grin/NodeAnalyze.hs 273
-
hunk ./src/Grin/NodeAnalyze.hs 313
-
-
hunk ./src/Grin/NodeAnalyze.hs 333
-
hunk ./src/Grin/NodeAnalyze.hs 342
-
hunk ./src/Grin/NodeAnalyze.hs 344
-
hunk ./src/Grin/NodeAnalyze.hs 400
-
hunk ./src/Grin/NodeAnalyze.hs 434
-
hunk ./src/Grin/Noodle.hs 21
-
hunk ./src/Grin/Noodle.hs 105
-
-
hunk ./src/Grin/Noodle.hs 125
-
hunk ./src/Grin/Noodle.hs 148
-
hunk ./src/Grin/Noodle.hs 236
-
hunk ./src/Grin/Noodle.hs 258
-
-
hunk ./src/Grin/Noodle.hs 260
-
-
hunk ./src/Grin/SSimplify.hs 3
-
hunk ./src/Grin/SSimplify.hs 5
-import Control.Monad.Writer
hunk ./src/Grin/SSimplify.hs 6
+import Control.Monad.Writer
hunk ./src/Grin/SSimplify.hs 37
-
hunk ./src/Grin/SSimplify.hs 66
-
hunk ./src/Grin/SSimplify.hs 68
-
hunk ./src/Grin/SSimplify.hs 74
-
hunk ./src/Grin/SSimplify.hs 89
-
hunk ./src/Grin/SSimplify.hs 91
-
hunk ./src/Grin/SSimplify.hs 151
-
-
hunk ./src/Grin/SSimplify.hs 246
-
-
hunk ./src/Grin/SSimplify.hs 282
-
-
-
hunk ./src/Grin/SSimplify.hs 352
-
hunk ./src/Grin/SSimplify.hs 420
-
hunk ./src/Grin/Show.hs 17
-import StringTable.Atom
hunk ./src/Grin/Show.hs 26
+import Name.VConsts
hunk ./src/Grin/Show.hs 28
+import StringTable.Atom
hunk ./src/Grin/Show.hs 33
-import Name.VConsts
-
-
hunk ./src/Grin/Show.hs 37
-
hunk ./src/Grin/Show.hs 49
-
hunk ./src/Grin/Show.hs 55
-
hunk ./src/Grin/Show.hs 144
-
hunk ./src/Grin/Show.hs 164
-
hunk ./src/Grin/Show.hs 184
-
hunk ./src/Grin/Show.hs 191
-
-
hunk ./src/Grin/StorageAnalysis.hs 9
-import Options
hunk ./src/Grin/StorageAnalysis.hs 12
+import Options
hunk ./src/Grin/StorageAnalysis.hs 50
-
hunk ./src/Grin/StorageAnalysis.hs 75
-
hunk ./src/Grin/StorageAnalysis.hs 123
-
-
-
hunk ./src/Grin/StorageAnalysis.hs 130
-
-
-
-
-
hunk ./src/Grin/Unboxing.hs 8
-import StringTable.Atom
hunk ./src/Grin/Unboxing.hs 10
+import StringTable.Atom
hunk ./src/Grin/Unboxing.hs 15
-
hunk ./src/Grin/Unboxing.hs 25
-
hunk ./src/Grin/Unboxing.hs 28
-
hunk ./src/Grin/Unboxing.hs 101
-
hunk ./src/Grin/Unboxing.hs 116
-
hunk ./src/Grin/Val.hs 15
-import StringTable.Atom
hunk ./src/Grin/Val.hs 16
+
+import Cmm.Number
hunk ./src/Grin/Val.hs 19
-import Name.VConsts
-import Name.Names
hunk ./src/Grin/Val.hs 20
-import Cmm.Number
+import Name.Names
+import Name.VConsts
+import StringTable.Atom
hunk ./src/Grin/Val.hs 55
-
hunk ./src/Grin/Val.hs 59
-
hunk ./src/Grin/Val.hs 72
-
hunk ./src/Grin/Val.hs 75
-
hunk ./src/Grin/Val.hs 94
-
hunk ./src/Grin/Val.hs 114
-
-
hunk ./src/Grin/Whiz.hs 6
-import qualified Data.Set as Set
hunk ./src/Grin/Whiz.hs 7
-import Util.SetLike
hunk ./src/Grin/Whiz.hs 8
+import Util.SetLike
+import qualified Data.Set as Set
hunk ./src/Grin/Whiz.hs 107
-
hunk ./src/Grin/Whiz.hs 178
-
hunk ./src/Grin/Whiz.hs 185
-
-
hunk ./src/Grin/Whiz.hs 212
-
-
-