e7b401a · elk · git.iko.soy

git.iko.soy/elk

Export default imports from Elm.Compiler.Module

commite7b401a4f8dbba821ed9ef015ecc370ecd4aa805 authorEvan Czaplicki <info@elm-lang.org> dateFri 14 Nov 2014, 22:00 (12 years ago) parente547fdd

2 files changed+10−2

compare with master

unifiedsplit

src/Elm/Compiler/Module.hs+9 src/Transform/AddDefaultImports.hs+1−2

src/Elm/Compiler/Module.hs+9

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

33 , nameToPath

44 , nameToString, nameFromString

55 , hyphenate, dehyphenate

6+ , defaultImports

67 )

78 where

@@ -10,9 +11,12 @@ import Control.Monad (mzero)

1011import qualified Data.Aeson as Json

1112import qualified Data.Char as Char

1213import qualified Data.List as List

14+import qualified Data.Map as Map

1315import qualified Data.Text as Text

1416import System.FilePath ((</>))

17+

1518import qualified AST.Module as Module

19+import qualified Transform.AddDefaultImports as Defaults

1620

1721

1822type Interface = Module.Interface

@@ -21,6 +25,11 @@ newtype Name = Name [String]

2125 deriving (Eq, Ord)

2226

2327

28+defaultImports :: [Name]

29+defaultImports =

30+ map Name (Map.keys Defaults.defaultImports)

31+

32+

2433nameToPath :: Name -> FilePath

2534nameToPath (Name names) =

2635 List.foldl1 (</>) names

src/Transform/AddDefaultImports.hs+1−2

@@ -1,9 +1,8 @@

11{-# LANGUAGE FlexibleContexts #-}

2−module Transform.AddDefaultImports (add) where

2+module Transform.AddDefaultImports (add, defaultImports) where

44import Prelude hiding (maybe)

55import qualified Data.Map as Map

6−import qualified Data.Set as Set

87import qualified AST.Module as Module

98import qualified AST.Variable as Var