[project @ 2001-06-15 22:00:11 by sof]

Make it compile

diff --git a/ghc/compiler/main/SysTools.lhs b/ghc/compiler/main/SysTools.lhs
index eaadfbd..392b9b2 100644 (file)
--- a/ghc/compiler/main/SysTools.lhs
+++ b/ghc/compiler/main/SysTools.lhs
@@ -49,7 +49,7 @@ import Panic          ( progName, GhcException(..) )
 import Util            ( global )
 import CmdLineOpts     ( dynFlag, verbosity )
 
-import List            ( intersperse, isPrefixOf )
+import List            ( isPrefixOf )
 import Exception       ( throw, throwDyn, catchAllIO )
 import IO              ( hPutStr, hPutChar, hPutStrLn, hFlush, stderr )
 import IO              ( openFile, IOMode(..), hClose )        -- For temp "system"
@@ -479,7 +479,7 @@ addFilesToClean files = mapM_ (add v_FilesToClean) files
 removeTmpFiles :: Int -> [FilePath] -> IO ()
 removeTmpFiles verb fs
   = traceCmd "Deleting temp files" 
-            ("Deleting: " ++ concat (intersperse " " fs))
+            ("Deleting: " ++ unwords fs)
             (mapM_ rm fs)
   where
     rm f = removeFile f `catchAllIO`
@@ -599,8 +599,8 @@ dosifyPath stuff
 #else
 
 --------------------- Unix version ---------------------
-dosifyPaths  xs = xs
-dosifyPaths  xs = xs
+dosifyPath   p  = p
+dosifyPaths  ps = ps
 unDosifyPath xs = subst '\\' '/' xs
 --------------------------------------------------------
 #endif
@@ -699,4 +699,4 @@ system cmd
       removeFile tmp
       return exit_code
 #endif
-\end{code}
\ No newline at end of file
+\end{code}