[clean up code a little
John Meacham <john@repetae.net>**20061120222320] hunk ./FrontEnd/Tc/Class.hs 156
-        wdump FD.BoxySteps $ liftIO $ putStrLn $ "defaulting: " <+> pprint x <+> "=>" <+> prettyPrintType y
-        addWarn "type-defaults" ("defaulting: " <+> pprint x <+> "=>" <+> prettyPrintType y)
+        let msg = "defaulting: " <+> pprint x <+> "=>" <+> prettyPrintType y
+        wdump FD.BoxySteps $ liftIO $ putStrLn msg
+        addWarn "type-defaults" msg