suzanne.soy/tock-mirror
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Added Eq and Ord instances for the Pass_ data structure (going solely by pass name)

Browse Source
This commit is contained in:
Neil Brown 2008-02-19 09:36:41 +00:00
parent 360abc195e
commit 2bbcd4ec9a
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
common/Pass.hs
View File

@ -59,7 +59,14 @@ data Monad m => Pass_ m = Pass {
,passPost :: Set.Set Property
,passEnabled :: CompState -> Bool
}
instance Monad m => Eq (Pass_ m) where
x == y = passName x == passName y
instance Monad m => Ord (Pass_ m) where
compare x y = compare (passName x) (passName y)
type Pass = Pass_ PassM
type PassR = Pass_ PassMR