374b9cf · elk · git.iko.soy

git.iko.soy/elk

Allow multiple roots

commit374b9cf72acd3e6f2f8b1c823aeaf99a221de100 authorEvan Czaplicki <evancz@users.noreply.github.com> dateMon 10 Apr 2017, 20:16 (10 years ago) parentc4cc8ee

2 files changed+8−9

compare with master

unifiedsplit

src/Elm/Compiler/Objects.hs+1−1 src/Elm/Compiler/Objects/Internal.hs+7−8

src/Elm/Compiler/Objects.hs+1−1

@@ -7,7 +7,7 @@ module Elm.Compiler.Objects

77 , union

88 , unions

99 , Roots

10− , root

10+ , mains

1111 )

1212 where

1313

src/Elm/Compiler/Objects/Internal.hs+7−8

@@ -10,7 +10,7 @@ module Elm.Compiler.Objects.Internal

1010 , Symbol(..)

1111 , lookup

1212 , Roots

13− , root

13+ , mains

1414 , toGlobals

1515 )

1616 where

@@ -26,7 +26,6 @@ import qualified AST.Expression.Optimized as Opt

2626import qualified AST.Module.Name as ModuleName

2727import qualified AST.Module as Module

2828import qualified AST.Variable as Var

29−import qualified Elm.Package as Pkg

3029

3130

3231

@@ -92,19 +91,19 @@ lookup var (SymbolTable symbols) =

9291

9392

9493data Roots

95− = Main ModuleName.Canonical

94+ = Mains [ModuleName.Canonical]

9695

9796

98−root :: Pkg.Name -> ModuleName.Raw -> Roots

99−root pkg name =

100− Main (ModuleName.Canonical pkg name)

97+mains :: [ModuleName.Canonical] -> Roots

98+mains =

99+ Mains

101100

102101

103102toGlobals :: Roots -> [Var.Global]

104103toGlobals roots =

105104 case roots of

106− Main home ->

107− [ Var.Global home "main" ]

105+ Mains modules ->

106+ map (\home -> Var.Global home "main") modules

108107

109108

110109