diff options
| -rw-r--r-- | compiler/basicTypes/Module.lhs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/compiler/basicTypes/Module.lhs b/compiler/basicTypes/Module.lhs index 9d60247b55..0221a1b87f 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} %************************************************************************ |