@@ -3,13 +3,11 @@ module Reporting.Error.Canonicalize where
33
44import Control.Arrow (second)
55import qualified Data.Char as Char
6−import qualified Data.Set as Set
76import Text.PrettyPrint.ANSI.Leijen (indent, text)
87
98import qualified AST.Module.Name as ModuleName
109import qualified AST.Type as Type
1110import qualified AST.Variable as Var
12−import qualified Elm.Package as Package
1311import qualified Reporting.Annotation as A
1412import qualified Reporting.Error.Helpers as Help
1513import qualified Reporting.Region as Region
@@ -24,7 +22,6 @@ data Error
2422 | Import ModuleName.Raw ImportError
2523 | Export String [String]
2624 | DuplicateExport String
27− | DuplicateEffect ModuleName.Canonical
2825 | Port PortError
2926
3027
@@ -231,15 +228,6 @@ toReport localizer err =
231228 ("You are trying to export `" ++ name ++ "` multiple times!")
232229 "Remove duplicates until there is only one listed."
233230
234− DuplicateEffect rawName ->
235− let
236− name =
237− ModuleName.canonicalToString rawName
238− in
239− namingError
240− ("This type lists the `" ++ name ++ "` effect multiple times.")
241− "Remove duplicates until each effect is listed only once."
242−
243231 Port (PortError name isInbound _rootType localType maybeMessage) ->
244232 let
245233 boundPort =
@@ -304,9 +292,6 @@ extractSuggestions err =
304292 DuplicateExport _ ->
305293 Nothing
306294
307− DuplicateEffect _ ->
308− Nothing
309−
310295 Port _ ->
311296 Nothing
312297