git.iko.soy/elk
on master help sign in
Remove dead code for error reporting for effect types
84c913fEvan Czaplicki
src/Reporting/Error/Canonicalize.hs−15
compare with master
unifiedsplit
@@ -3,13 +3,11 @@ module Reporting.Error.Canonicalize where
3
3
4import Control.Arrow (second)
4import Control.Arrow (second)
5import qualified Data.Char as Char
5import qualified Data.Char as Char
6−import qualified Data.Set as Set
7import Text.PrettyPrint.ANSI.Leijen (indent, text)
6import Text.PrettyPrint.ANSI.Leijen (indent, text)
8
7
9import qualified AST.Module.Name as ModuleName
8import qualified AST.Module.Name as ModuleName
10import qualified AST.Type as Type
9import qualified AST.Type as Type
11import qualified AST.Variable as Var
10import qualified AST.Variable as Var
12−import qualified Elm.Package as Package
13import qualified Reporting.Annotation as A
11import qualified Reporting.Annotation as A
14import qualified Reporting.Error.Helpers as Help
12import qualified Reporting.Error.Helpers as Help
15import qualified Reporting.Region as Region
13import qualified Reporting.Region as Region
@@ -24,7 +22,6 @@ data Error
24 | Import ModuleName.Raw ImportError
22 | Import ModuleName.Raw ImportError
25 | Export String [String]
23 | Export String [String]
26 | DuplicateExport String
24 | DuplicateExport String
27− | DuplicateEffect ModuleName.Canonical
28 | Port PortError
25 | Port PortError
29
26
30
27
@@ -231,15 +228,6 @@ toReport localizer err =
231 ("You are trying to export `" ++ name ++ "` multiple times!")
228 ("You are trying to export `" ++ name ++ "` multiple times!")
232 "Remove duplicates until there is only one listed."
229 "Remove duplicates until there is only one listed."
233
230
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−
243 Port (PortError name isInbound _rootType localType maybeMessage) ->
231 Port (PortError name isInbound _rootType localType maybeMessage) ->
244 let
232 let
245 boundPort =
233 boundPort =
@@ -304,9 +292,6 @@ extractSuggestions err =
304 DuplicateExport _ ->
292 DuplicateExport _ ->
305 Nothing
293 Nothing
306
294
307− DuplicateEffect _ ->
308− Nothing
309−
310 Port _ ->
295 Port _ ->
311 Nothing
296 Nothing
312
297