@@ -16,12 +16,12 @@ import Language.PureScript.Names
1616import qualified Language.PureScript.Constants as C
1717
1818moduleNameToIL :: ModuleName -> Text
19−moduleNameToIL (ModuleName pns) =
20− let name = T.intercalate "_" (runProperName `map` pns)
19+moduleNameToIL (ModuleName mn) =
20+ let name = T.replace "." "_" mn
2121 in if nameIsILBuiltIn name then (name <> moduleRenamerMarker) else name
2222
2323moduleNameToIL' :: ModuleName -> Text
24−moduleNameToIL' (ModuleName pns) = T.intercalate "." (runProperName `map` pns)
24+moduleNameToIL' (ModuleName mn) = T.replace "_" "." mn
2525
2626-- | Convert an 'Ident' into a valid IL identifier:
2727--