@@ -0,0 +1,43 @@
1+module Reporting.Error.Import
2+ ( Error(..)
3+ , toReport
4+ )
5+ where
6+
7+
8+import qualified Elm.ModuleName as ModuleName
9+import qualified Elm.Package as Pkg
10+import qualified File
11+import qualified Reporting.Error as Error
12+import qualified Reporting.Report as Report
13+
14+
15+
16+-- ERROR
17+
18+
19+data Error
20+ = NotFound
21+ | Ambiguous FilePath [FilePath] Pkg.Name [Pkg.Name]
22+ | AmbiguousLocal FilePath FilePath [FilePath]
23+ | AmbiguousForeign Pkg.Name Pkg.Name [Pkg.Name]
24+
25+
26+
27+-- TO REPORT
28+
29+
30+toReport :: Error -> Report.Report
31+toReport err =
32+ case err of
33+ NotFound ->
34+ error "TODO NotFound"
35+
36+ Ambiguous path paths pkg pkgs ->
37+ error "TODO Ambiguous" path paths pkg pkgs
38+
39+ AmbiguousLocal path1 path2 paths ->
40+ error "TODO AmbiguousLocal" path1 path2 paths
41+
42+ AmbiguousForeign pkg1 pkg2 pkgs ->
43+ error "TODO AmbiguousForeign" pkg1 pkg2 pkgs