gistfile1.hs

data HashedTag = HashedTag Int Text.Text deriving (Show)

instance Eq HashedTag where
  (HashedTag a _) == (HashedTag b _) = a == b

instance Ord HashedTag where
  (HashedTag a _) `compare` (HashedTag b _) =
    compare a b

instance Hashable HashedTag where
  hashWithSalt salt (HashedTag h _) = salt `hashWithSalt` h

data Tag =
    T HashedTag
    deriving (Show, Eq, Ord, Generic)


instance Hashable Tag