[Xmonad] darcs patch: move event loop out of mouseDrag.