-- 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
--
data Forward =
Forward Address Goto
- deriving (Show)
+ deriving ( Eq, Show )
-- | Shortcut constructor for creating 'Forward' objects.