Commit 58d803fe authored by Duncan Coutts's avatar Duncan Coutts
Browse files

Add Eq instances for PError, PWarning and PackageCheck

parent 723f165b
......@@ -139,6 +139,7 @@ data PackageCheck =
-- quite legitimately refuse to publicly distribute packages with these
-- problems.
| PackageDistInexcusable { explanation :: String }
deriving (Eq)
instance Show PackageCheck where
show notice = explanation notice
......
......@@ -98,11 +98,11 @@ data PError = AmbiguousParse String LineNo
| NoParse String LineNo
| TabsError LineNo
| FromString String (Maybe LineNo)
deriving Show
deriving (Eq, Show)
data PWarning = PWarning String
| UTFWarning LineNo String
deriving Show
deriving (Eq, Show)
showPWarning :: FilePath -> PWarning -> String
showPWarning fpath (PWarning msg) =
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment