From: sof <unknown>
Date: Fri, 15 Jun 2001 22:00:11 +0000 (+0000)
Subject: [project @ 2001-06-15 22:00:11 by sof]
X-Git-Tag: Approximately_9120_patches~1747
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=bea4a5a379a2dbc0fb9e1e33c5923f6e504653a4;p=ghc-hetmet.git

[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
--- 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}