makeEvent "scroll"
    (JSONEventData{jeventId = Just eid, xdelta = Just xd, ydelta = Just yd})
        = Scroll (BU.toString eid) xd yd
makeEvent "scroll"
    (JSONEventData{jeventId = Just eid, xdelta = Just xd, ydelta = Just yd})
        = Scroll (BU.toString eid) xd yd
makeEvent "scroll"
    (JSONEventData{jeventId = Just eid, xdelta = Just xd, ydelta = Just yd})
        = Scroll (BU.toString eid) xd yd