@@ -51,6 +51,7 @@ import qualified Data.Name as Name
5151import Data.Word (Word16)
5252--import Numeric (showHex)
5353
54+import qualified Elm.ModuleName as ModuleName
5455import Parse.Primitives (Row, Col)
5556--import qualified Parse.Primitives as P
5657import qualified Reporting.Annotation as A
@@ -64,7 +65,8 @@ import qualified Reporting.Render.Code as Code
6465
6566
6667data Error
67− = CommentOnNothing A.Region
68+ = ModuleNameUnspecified ModuleName.Raw
69+ | ModuleNameMismatch ModuleName.Raw ModuleName.Raw
6870 | UnexpectedPort A.Region
6971 | NoPorts A.Region
7072 | ParseError Module