@@ -24,8 +24,8 @@ import qualified Elm.Docs as Docs
2424import qualified Json.Encode as Encode
2525
2626import File.Compile (Answer(..))
27−import qualified Reporting.Error.Compile as E
28−import qualified Reporting.Error2 as Error
27+import qualified Reporting.Exit.Compile as E
28+import qualified Reporting.Exit as Exit
2929import qualified Reporting.Task as Task
3030import qualified Stuff.Paths as Path
3131
@@ -88,7 +88,7 @@ gather onGood answers =
8888
8989 case summary of
9090 Left (err :| errors) ->
91− Task.throw (Error.Compile err errors)
91+ Task.throw (Exit.Compile err errors)
9292
9393 Right results ->
9494 return results
@@ -104,7 +104,7 @@ gatherHelp onGood summary (name, answer) =
104104 return summary
105105
106106 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
108108 return (addErr err summary)
109109
110110 Good result ->
@@ -117,7 +117,7 @@ gatherHelp onGood summary (name, answer) =
117117
118118
119119type Summary a =
120− Either (NonEmpty E.Error) (Map Module.Raw a)
120+ Either (NonEmpty E.Exit) (Map Module.Raw a)
121121
122122
123123addOk :: Module.Raw -> a -> Summary a -> Summary a
@@ -130,7 +130,7 @@ addOk name result acc =
130130 Right (Map.insert name result results)
131131
132132
133−addErr :: E.Error -> Summary a -> Summary a
133+addErr :: E.Exit -> Summary a -> Summary a
134134addErr err acc =
135135 case acc of
136136 Left errors ->