X-Git-Url: http://gitweb.michael.orlitzky.com/?p=list-remote-forwards.git;a=blobdiff_plain;f=src%2FForward.hs;h=8d977fac299e46017850efdcc625fa99a9001ca3;hp=3e9ad88fba5c0275443e1934034685ce5423739c;hb=34d9cc7a2def43cb2d588ee3d1d405f0b9d4a1d0;hpb=ae4cdbc0662d67d3d325c8ab567e0d45a84413b3

diff --git a/src/Forward.hs b/src/Forward.hs
index 3e9ad88..8d977fa 100644
--- a/src/Forward.hs
+++ b/src/Forward.hs
@@ -22,14 +22,14 @@ type Domain = String
 --   a 'String'. This differs from a 'Goto' in that it should only
 --   appear on the left-hand-side of a alias -> goto relationship.
 --
-newtype Address = Address String deriving ( Show )
+newtype Address = Address String deriving ( Eq, Show )
 
 
 -- | A type-safe wrapper around an email address that's represented as
 --   a 'String'. This differs from 'Address' in that 'Goto' addresses
 --   are the destinations of mail that is forwarded, rather than the
 --   source.
-newtype Goto = Goto String deriving ( Show )
+newtype Goto = Goto String deriving ( Eq, Show )
 
 
 -- | A data type representing a "forward." That is, an email address
@@ -41,7 +41,7 @@ newtype Goto = Goto String deriving ( Show )
 --
 data Forward =
   Forward Address Goto
-  deriving (Show)
+  deriving ( Eq, Show )
 
 
 -- | Shortcut constructor for creating 'Forward' objects.