Commit 6a7c6c27 authored by simonmar's avatar simonmar
Browse files

[project @ 2002-02-27 16:24:00 by simonmar]

Escape space characters in filenames in the Makefile generated from ghc -M.
parent b34291ea
-----------------------------------------------------------------------------
-- $Id: DriverUtil.hs,v 1.30 2002/02/08 14:59:19 simonmar Exp $
-- $Id: DriverUtil.hs,v 1.31 2002/02/27 16:24:00 simonmar Exp $
--
-- Utils for the driver
--
......@@ -191,6 +191,9 @@ newdir dir s = dir ++ '/':drop_longest_prefix s isPathSeparator
remove_spaces :: String -> String
remove_spaces = reverse . dropWhile isSpace . reverse . dropWhile isSpace
escapeSpaces :: String -> String
escapeSpaces = foldr (\c s -> if isSpace c then '\\':c:s else c:s) ""
isPathSeparator :: Char -> Bool
isPathSeparator ch =
#ifdef mingw32_TARGET_OS
......
Markdown is supported
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