@@ -20,6 +20,7 @@ module Elm.Compiler.Module
2020
2121 -- canonical names
2222 , ModuleName.Canonical(..)
23+ , canonicalToMain
2324 )
2425 where
2526
@@ -34,6 +35,7 @@ import qualified AST.Module as Module
3435import qualified AST.Module.Name as ModuleName
3536import qualified Elm.Compiler.Type as PublicType
3637import qualified Elm.Compiler.Type.Extract as Extract
38+import qualified Generate.JavaScript.Variable as JS
3739import qualified Json.Decode as Decode
3840import qualified Json.Encode as Encode
3941
@@ -123,3 +125,12 @@ decoder =
123125
124126 Just name ->
125127 Decode.succeed name
128+
129+
130+
131+-- CANONICAL TO MAIN
132+
133+
134+canonicalToMain :: ModuleName.Canonical -> Text
135+canonicalToMain home =
136+ JS.globalToName home "main"