makeEvent "mousedrag"
    (JSONEventData{jeventId = Just eid1, x1 = Just x1, y1 = Just y1, x2 = Just x2, y2 = Just y2})
        = MouseDrag (x1, y1) (BU.toString eid1) (x2, y2)
makeEvent "mousedrag"
    (JSONEventData{jeventId = Just eid1, x1 = Just x1, y1 = Just y1, x2 = Just x2, y2 = Just y2})
        = MouseDrag (x1, y1) (BU.toString eid1) (x2, y2)
makeEvent "mousedrag"
    (JSONEventData{jeventId = Just eid1, x1 = Just x1, y1 = Just y1, x2 = Just x2, y2 = Just y2})
        = MouseDrag (x1, y1) (BU.toString eid1) (x2, y2)