@@ -351,7 +351,7 @@ handleBrowse moduleName = do
351 return ()
351 return ()
353 moduleToPath :: String -> FilePath
353 moduleToPath :: String -> FilePath
354− moduleToPath = (pathSeparator:) . (++ ".purs") . N.runModuleName . N.moduleNameFromString
354+ moduleToPath = (pathSeparator:) . (++ ".purs") . map (\x -> if x == '.' then pathSeparator else x) . N.runModuleName . N.moduleNameFromString
356 -- find the fully qualified module path (key to full module) - "" if not found
356 -- find the fully qualified module path (key to full module) - "" if not found
357 findModulePath :: [FilePath] -> String -> Either String FilePath
357 findModulePath :: [FilePath] -> String -> Either String FilePath