-- | Dump a module.
passDump :: String -> ModGuts -> CoreM ModGuts
passDump name guts
 = unsafePerformIO
 $ do
        writeFile ("dump." ++ name ++ ".hs")
         $ render RenderIndent (pprModGuts guts)

        return (return guts)
passDump :: String -> ModGuts -> CoreM ModGuts
passDump name guts
 = unsafePerformIO
 $ do
        writeFile ("dump." ++ name ++ ".hs")
         $ render RenderIndent (pprModGuts guts)

        return (return guts)
passDump name guts
 = unsafePerformIO
 $ do
        writeFile ("dump." ++ name ++ ".hs")
         $ render RenderIndent (pprModGuts guts)

        return (return guts)