@@ -351,7 +351,7 @@ handleBrowse moduleName = do
351351 return ()
352352 where
353353 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
355355
356356 -- find the fully qualified module path (key to full module) - "" if not found
357357 findModulePath :: [FilePath] -> String -> Either String FilePath