X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fmain%2FMain.hs;h=7c77cafe58fbec64e910c48a4f5b94811c062772;hb=dde771de24f0e02d00867e79f7c68e526475d7c6;hp=f96b085a6914792e19218ce4d7db544698529b66;hpb=5d536b42c88dbe9523c4b0c799a0e46c2d984aa6;p=ghc-hetmet.git

diff --git a/compiler/main/Main.hs b/compiler/main/Main.hs
index f96b085..7c77caf 100644
--- a/compiler/main/Main.hs
+++ b/compiler/main/Main.hs
@@ -54,6 +54,7 @@ import System.IO
 import System.Directory	( doesDirectoryExist )
 import System.Environment
 import System.Exit
+import System.FilePath
 import Control.Monad
 import Data.List
 import Data.Maybe
@@ -147,7 +148,7 @@ main =
      -- To simplify the handling of filepaths, we normalise all filepaths right 
      -- away - e.g., for win32 platforms, backslashes are converted
      -- into forward slashes.
-    normal_fileish_paths = map normalisePath fileish_args
+    normal_fileish_paths = map normalise fileish_args
     (srcs, objs)         = partition_args normal_fileish_paths [] []
 
   -- Note: have v_Ld_inputs maintain the order in which 'objs' occurred on