@@ -43,7 +43,7 @@ instance ToString Canonical where
4343data Listing a = Listing
4444 { _explicits :: [a]
4545 , _open :: Bool
46− }
46+ } deriving (Eq,Ord)
4747
4848openListing :: Listing a
4949openListing = Listing [] True
@@ -53,7 +53,7 @@ data Value
5353 = Value !String
5454 | Alias !String
5555 | ADT !String !(Listing String)
56−
56+ deriving (Eq,Ord)
5757
5858instance Pretty Raw where
5959 pretty (Raw var) = variable var