[cleanups
John Meacham <john@repetae.net>**20120120031151
 Ignore-this: e9b13a6888ca5b2e46b4bc199b80d5c0
] hunk ./src/Options.hs 458
-    let x = maybe "" id p
+    let x = fromMaybe "" p
hunk ./src/Options.hs 493
-outputName = maybe "hs.out" id (optOutName options)
+outputName = fromMaybe "hs.out" (optOutName options)
hunk ./src/Util/VarName.hs 41
-        ncm' = Map.insertWith (+) nc 1 ncm
+        ncm' = Map.insertWith' (+) nc 1 ncm
hunk ./src/Util/VarName.hs 67
-                ncm' = Map.insertWith (+) nc 1 ncm
+                ncm' = Map.insertWith' (+) nc 1 ncm