summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorJoey Hess2014-11-20 14:16:26 -0400
committerJoey Hess2014-11-20 14:16:26 -0400
commitdef44311327640b2bdb7b5f1c4f9cc4dca761327 (patch)
treec35c7f58968e110561b354874aa1f498e2636ac2 /src
parent411612f8cbb128dee0b46285faa5ed78986bce8d (diff)
remove unused Eq instance for Info
Its implementation was .. shady at best, as Host has no Eq
Diffstat (limited to 'src')
-rw-r--r--src/Propellor/Types.hs13
1 files changed, 1 insertions, 12 deletions
diff --git a/src/Propellor/Types.hs b/src/Propellor/Types.hs
index 4e0a8dee..16ddcc7d 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)
- ]