module Popupmsg where
import Geometry

data PopupMsg a = Popup Point a | Popdown  deriving (PopupMsg a -> PopupMsg a -> Bool
(PopupMsg a -> PopupMsg a -> Bool)
-> (PopupMsg a -> PopupMsg a -> Bool) -> Eq (PopupMsg a)
forall a. Eq a => PopupMsg a -> PopupMsg a -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PopupMsg a -> PopupMsg a -> Bool
$c/= :: forall a. Eq a => PopupMsg a -> PopupMsg a -> Bool
== :: PopupMsg a -> PopupMsg a -> Bool
$c== :: forall a. Eq a => PopupMsg a -> PopupMsg a -> Bool
Eq, Eq (PopupMsg a)
Eq (PopupMsg a)
-> (PopupMsg a -> PopupMsg a -> Ordering)
-> (PopupMsg a -> PopupMsg a -> Bool)
-> (PopupMsg a -> PopupMsg a -> Bool)
-> (PopupMsg a -> PopupMsg a -> Bool)
-> (PopupMsg a -> PopupMsg a -> Bool)
-> (PopupMsg a -> PopupMsg a -> PopupMsg a)
-> (PopupMsg a -> PopupMsg a -> PopupMsg a)
-> Ord (PopupMsg a)
PopupMsg a -> PopupMsg a -> Bool
PopupMsg a -> PopupMsg a -> Ordering
PopupMsg a -> PopupMsg a -> PopupMsg a
forall a.
Eq a
-> (a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
forall a. Ord a => Eq (PopupMsg a)
forall a. Ord a => PopupMsg a -> PopupMsg a -> Bool
forall a. Ord a => PopupMsg a -> PopupMsg a -> Ordering
forall a. Ord a => PopupMsg a -> PopupMsg a -> PopupMsg a
min :: PopupMsg a -> PopupMsg a -> PopupMsg a
$cmin :: forall a. Ord a => PopupMsg a -> PopupMsg a -> PopupMsg a
max :: PopupMsg a -> PopupMsg a -> PopupMsg a
$cmax :: forall a. Ord a => PopupMsg a -> PopupMsg a -> PopupMsg a
>= :: PopupMsg a -> PopupMsg a -> Bool
$c>= :: forall a. Ord a => PopupMsg a -> PopupMsg a -> Bool
> :: PopupMsg a -> PopupMsg a -> Bool
$c> :: forall a. Ord a => PopupMsg a -> PopupMsg a -> Bool
<= :: PopupMsg a -> PopupMsg a -> Bool
$c<= :: forall a. Ord a => PopupMsg a -> PopupMsg a -> Bool
< :: PopupMsg a -> PopupMsg a -> Bool
$c< :: forall a. Ord a => PopupMsg a -> PopupMsg a -> Bool
compare :: PopupMsg a -> PopupMsg a -> Ordering
$ccompare :: forall a. Ord a => PopupMsg a -> PopupMsg a -> Ordering
$cp1Ord :: forall a. Ord a => Eq (PopupMsg a)
Ord)