From def44311327640b2bdb7b5f1c4f9cc4dca761327 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Thu, 20 Nov 2014 14:16:26 -0400
Subject: [PATCH] remove unused Eq instance for Info

Its implementation was .. shady at best, as Host has no Eq
---
 src/Propellor/Types.hs | 13 +------------
 1 file changed, 1 insertion(+), 12 deletions(-)

diff --git a/src/Propellor/Types.hs b/src/Propellor/Types.hs
index 4e0a8de..16ddcc7 100644
--- a/src/Propellor/Types.hs
+++ b/src/Propellor/Types.hs
@@ -169,7 +169,7 @@ data Info = Info
 	, _dockerinfo :: DockerInfo
 	, _chrootinfo :: ChrootInfo
 	}
-	deriving (Eq, Show)
+	deriving (Show)
 
 instance Monoid Info where
 	mempty = Info mempty mempty mempty mempty mempty mempty mempty mempty
@@ -210,12 +210,6 @@ instance Monoid DockerInfo where
 		, _dockerContainers = M.union (_dockerContainers old) (_dockerContainers new)
 		}
 
-instance Eq DockerInfo where
-	x == y = and
-		[ let simpl v = map (\(DockerRunParam a) -> a "") (_dockerRunParams v)
-		  in simpl x == simpl y
-		]
-
 newtype DockerRunParam = DockerRunParam (HostName -> String)
 
 instance Show DockerRunParam where
@@ -231,8 +225,3 @@ instance Monoid ChrootInfo where
 	mappend old new = ChrootInfo
 		{ _chroots = M.union (_chroots old) (_chroots new)
 		}
-
-instance Eq ChrootInfo where
-	x == y = and
-		[ M.keys (_chroots x) == M.keys (_chroots y)
-		]