@@ -7,7 +7,7 @@ module Elm.Compiler.Module
77 , RawForJson(RawForJson), fromJson
88 , defaultImports
99 , interfaceAliasedTypes
10− , ModuleName.Canonical(..), canonicalNameToJS
10+ , ModuleName.Canonical(..), qualifiedVar
1111 )
1212 where
1313
@@ -53,9 +53,9 @@ fromJson (RawForJson raw) =
5353 raw
5454
5555
56−canonicalNameToJS :: ModuleName.Canonical -> String
57−canonicalNameToJS =
58− Gen.moduleToString
56+qualifiedVar :: ModuleName.Canonical -> String -> String
57+qualifiedVar =
58+ Gen.qualified
5959
6060
6161defaultImports :: [ModuleName.Raw]