Commit bea4a5a3 authored by sof's avatar sof
Browse files

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

Make it compile
parent c5b931c9
......@@ -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}
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment