Skip to content
Browse files

Add Eq instances for PError, PWarning and PackageCheck

  • Loading branch information...
1 parent 723f165 commit 58d803fe50a32facaabd2c26debe41345dd3be61 @dcoutts dcoutts committed Mar 25, 2013
Showing with 3 additions and 2 deletions.
  1. +1 −0 Cabal/Distribution/PackageDescription/Check.hs
  2. +2 −2 Cabal/Distribution/ParseUtils.hs
View
1 Cabal/Distribution/PackageDescription/Check.hs
@@ -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
View
4 Cabal/Distribution/ParseUtils.hs
@@ -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) =

0 comments on commit 58d803f

Please sign in to comment.
Something went wrong with that request. Please try again.