101709f · elk · git.iko.soy

git.iko.soy/elk

on master help sign in

Expose canonicalToMain for app footers

101709fEvan Czaplicki9 years ago

src/Elm/Compiler/Module.hs+11

compare with master

unifiedsplit

@@ -20,6 +20,7 @@ module Elm.Compiler.Module

21 -- canonical names

22 , ModuleName.Canonical(..)

23+ , canonicalToMain

23 )

24 )

24 where

25 where

@@ -34,6 +35,7 @@ import qualified AST.Module as Module

34import qualified AST.Module.Name as ModuleName

35import qualified AST.Module.Name as ModuleName

35import qualified Elm.Compiler.Type as PublicType

36import qualified Elm.Compiler.Type as PublicType

36import qualified Elm.Compiler.Type.Extract as Extract

37import qualified Elm.Compiler.Type.Extract as Extract

38+import qualified Generate.JavaScript.Variable as JS

37import qualified Json.Decode as Decode

39import qualified Json.Decode as Decode

38import qualified Json.Encode as Encode

40import qualified Json.Encode as Encode

@@ -123,3 +125,12 @@ decoder =

123

125

124 Just name ->

126 Just name ->

125 Decode.succeed name

127 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"

src/Generate/JavaScript/Variable.hs+1

@@ -10,6 +10,7 @@ module Generate.JavaScript.Variable

10 , safe

11 , global

12 , globalName

13+ , globalToName

13 )

14 )

14 where

15 where