From 4b01f5dedecdab28e2524f7d9adc77449f596dcc Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Tue, 22 Jan 2008 14:09:57 +0000 Subject: [PATCH] use pathSeparator instead of '/' --- compiler/basicTypes/Module.lhs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/compiler/basicTypes/Module.lhs b/compiler/basicTypes/Module.lhs index 9d60247..0221a1b 100644 --- a/compiler/basicTypes/Module.lhs +++ b/compiler/basicTypes/Module.lhs @@ -70,6 +70,8 @@ import FiniteMap import UniqFM import FastString import Binary + +import System.FilePath \end{code} %************************************************************************ @@ -178,7 +180,7 @@ mkModuleNameFS s = ModuleName s -- Returns the string version of the module name, with dots replaced by slashes moduleNameSlashes :: ModuleName -> String moduleNameSlashes = dots_to_slashes . moduleNameString - where dots_to_slashes = map (\c -> if c == '.' then '/' else c) + where dots_to_slashes = map (\c -> if c == '.' then pathSeparator else c) \end{code} %************************************************************************ -- 1.7.10.4