fudgets-0.18.3: hsrc/types/Popupmsg.hs

module Popupmsg where
import Geometry

data PopupMsg a = Popup Point a | Popdown  deriving (Eq, Ord)