@@ -24,8 +24,8 @@ import qualified Elm.Docs as Docs
24import qualified Json.Encode as Encode
24import qualified Json.Encode as Encode
26import File.Compile (Answer(..))
26import File.Compile (Answer(..))
27−import qualified Reporting.Error.Compile as E
27+import qualified Reporting.Exit.Compile as E
28−import qualified Reporting.Error2 as Error
28+import qualified Reporting.Exit as Exit
29import qualified Reporting.Task as Task
29import qualified Reporting.Task as Task
30import qualified Stuff.Paths as Path
30import qualified Stuff.Paths as Path
@@ -88,7 +88,7 @@ gather onGood answers =
89 case summary of
89 case summary of
90 Left (err :| errors) ->
90 Left (err :| errors) ->
91− Task.throw (Error.Compile err errors)
91+ Task.throw (Exit.Compile err errors)
93 Right results ->
93 Right results ->
94 return results
94 return results
@@ -104,7 +104,7 @@ gatherHelp onGood summary (name, answer) =
104 return summary
104 return summary
106 Bad path time src errors ->
106 Bad path time src errors ->
107− do let err = E.Error name path time (Text.decodeUtf8 src) errors
107+ do let err = E.Exit name path time (Text.decodeUtf8 src) errors
108 return (addErr err summary)
108 return (addErr err summary)
110 Good result ->
110 Good result ->
@@ -117,7 +117,7 @@ gatherHelp onGood summary (name, answer) =
119type Summary a =
119type Summary a =
120− Either (NonEmpty E.Error) (Map Module.Raw a)
120+ Either (NonEmpty E.Exit) (Map Module.Raw a)
123addOk :: Module.Raw -> a -> Summary a -> Summary a
123addOk :: Module.Raw -> a -> Summary a -> Summary a
@@ -130,7 +130,7 @@ addOk name result acc =
130 Right (Map.insert name result results)
130 Right (Map.insert name result results)
133−addErr :: E.Error -> Summary a -> Summary a
133+addErr :: E.Exit -> Summary a -> Summary a
134addErr err acc =
134addErr err acc =
135 case acc of
135 case acc of
136 Left errors ->
136 Left errors ->