data Drawable = MyWindow | Pixmap PixmapId | DbeBackBuffer DbeBackBufferId instance Eq Drawable instance Ord Drawable instance Read Drawable instance Show Drawable instance Drawable Window instance Drawable Pixmap instance Drawable DbeBackBufferId instance (Drawable a, Drawable b) => Drawable (a ⊕ b) newtype PropertyMode = PropertyMode Int instance Eq PropertyMode instance Ord PropertyMode instance Read PropertyMode instance Show PropertyMode propModeAppend :: PropertyMode propModePrepend :: PropertyMode propModeReplace :: PropertyMode
