module Eventloop.Module.Websocket.Mouse.Types where

import Eventloop.Types.Common

type Point = (Float, Float)

data Mouse = Click MouseButton Point
           | DoubleClick MouseButton Point
           | MouseMove Point
           | MouseDown MouseButton Point
           | MouseUp MouseButton Point
           | MouseEnter Point
           | MouseLeave Point
           deriving (Eq, Show)
         
data MouseButton = MouseLeft 
                 | MouseRight 
                 | MouseMiddle
                 deriving (Eq, Show)