@@ -9,6 +9,7 @@ module Compile
10import qualified Data.ByteString as BS
10import qualified Data.ByteString as BS
11import qualified Data.Map as Map
11import qualified Data.Map as Map
12+import qualified Data.Name as Name
13import qualified AST.Canonical as Can
14import qualified AST.Canonical as Can
14import qualified AST.Optimized as Opt
15import qualified AST.Optimized as Opt
@@ -16,7 +17,6 @@ import qualified AST.Module.Name as ModuleName
16import qualified Canonicalize.Module as Canonicalize
17import qualified Canonicalize.Module as Canonicalize
17import qualified Elm.Docs as Docs
18import qualified Elm.Docs as Docs
18import qualified Elm.Interface as I
19import qualified Elm.Interface as I
19−import qualified Elm.Name as N
20import qualified Elm.Package as Pkg
20import qualified Elm.Package as Pkg
21import qualified Nitpick.PatternMatches as PatternMatches
21import qualified Nitpick.PatternMatches as PatternMatches
22import qualified Optimize.Module as Optimize
22import qualified Optimize.Module as Optimize
@@ -40,7 +40,7 @@ type Result i a =
42type ImportDict =
42type ImportDict =
43− Map.Map N.Name ModuleName.Canonical
43+ Map.Map Name.Name ModuleName.Canonical
46data Artifacts =
46data Artifacts =
@@ -86,7 +86,7 @@ compile flag pkg importDict interfaces source =
86-- TYPE INFERENCE
86-- TYPE INFERENCE
89−runTypeInference :: L.Localizer -> Can.Module -> Result i (Map.Map N.Name Can.Annotation)
89+runTypeInference :: L.Localizer -> Can.Module -> Result i (Map.Map Name.Name Can.Annotation)
90runTypeInference localizer canonical =
90runTypeInference localizer canonical =
91 case unsafePerformIO (Type.run =<< Type.constrain canonical) of
91 case unsafePerformIO (Type.run =<< Type.constrain canonical) of
92 Right annotations ->
92 Right annotations ->