cadey
/
propellor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

remove unused Eq instance for Info 

Its implementation was .. shady at best, as Host has no Eq
This commit is contained in:
Joey Hess 2014-11-20 14:16:26 -04:00
parent 411612f8cb
commit def4431132
1 changed files with 1 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
src/Propellor/Types.hs
View File

@ -169,7 +169,7 @@ data Info = Info
, _dockerinfo :: DockerInfo , _dockerinfo :: DockerInfo
, _chrootinfo :: ChrootInfo , _chrootinfo :: ChrootInfo
} }
deriving (Eq, Show) deriving (Show)
instance Monoid Info where instance Monoid Info where
mempty = Info mempty mempty mempty mempty mempty mempty mempty mempty 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) , _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) newtype DockerRunParam = DockerRunParam (HostName -> String)
instance Show DockerRunParam where instance Show DockerRunParam where
@ -231,8 +225,3 @@ instance Monoid ChrootInfo where
mappend old new = ChrootInfo mappend old new = ChrootInfo
{ _chroots = M.union (_chroots old) (_chroots new) { _chroots = M.union (_chroots old) (_chroots new)
} }
instance Eq ChrootInfo where
x == y = and
[ M.keys (_chroots x) == M.keys (_chroots y)
]