Commit 4b01f5de authored by Simon Marlow's avatar Simon Marlow
Browse files

use pathSeparator instead of '/'

parent 8b9fadb6
......@@ -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}
%************************************************************************
......
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