git.iko.soy/elk
on master help sign in
The name of the module is paired with all Import.Error variants
79a4221Evan Czaplicki
compiler/src/Reporting/Error/Import.hs+25−14
compare with master
unifiedsplit
@@ -7,8 +7,6 @@ module Reporting.Error.Import
7
7
8import qualified Elm.ModuleName as ModuleName
8import qualified Elm.ModuleName as ModuleName
9import qualified Elm.Package as Pkg
9import qualified Elm.Package as Pkg
10−import qualified File
11−import qualified Reporting.Error as Error
12import qualified Reporting.Report as Report
10import qualified Reporting.Report as Report
13
11
14
12
@@ -17,10 +15,10 @@ import qualified Reporting.Report as Report
17
15
18
16
19data Error
17data Error
20− = NotFound
18+ = NotFound ModuleName.Raw
21− | Ambiguous FilePath [FilePath] Pkg.Name [Pkg.Name]
19+ | Ambiguous ModuleName.Raw FilePath [FilePath] Pkg.Name [Pkg.Name]
22− | AmbiguousLocal FilePath FilePath [FilePath]
20+ | AmbiguousLocal ModuleName.Raw FilePath FilePath [FilePath]
23− | AmbiguousForeign Pkg.Name Pkg.Name [Pkg.Name]
21+ | AmbiguousForeign ModuleName.Raw Pkg.Name Pkg.Name [Pkg.Name]
24
22
25
23
26
24
@@ -30,14 +28,27 @@ data Error
30toReport :: Error -> Report.Report
28toReport :: Error -> Report.Report
31toReport err =
29toReport err =
32 case err of
30 case err of
33− NotFound ->
31+ NotFound name ->
34− error "TODO NotFound"
32+ error "TODO NotFound" name
35
33
36− Ambiguous path paths pkg pkgs ->
34+ Ambiguous name path paths pkg pkgs ->
37− error "TODO Ambiguous" path paths pkg pkgs
35+ error "TODO Ambiguous" name path paths pkg pkgs
38
36
39− AmbiguousLocal path1 path2 paths ->
37+ AmbiguousLocal name path1 path2 paths ->
40− error "TODO AmbiguousLocal" path1 path2 paths
38+ error "TODO AmbiguousLocal" name path1 path2 paths
41
39
42− AmbiguousForeign pkg1 pkg2 pkgs ->
40+ AmbiguousForeign name pkg1 pkg2 pkgs ->
43− error "TODO AmbiguousForeign" pkg1 pkg2 pkgs
41+ error "TODO AmbiguousForeign" name pkg1 pkg2 pkgs
42+
43+
44+{-
45+
46+-- MODULE NOT FOUND ---------------------------------------------- src/Main.elm
47+
48+You are trying to import a `Whatever` module:
49+
50+ import Whatever
51+
52+But I cannot find `Whatever` in your project or packages.
53+
54+-}