move event loop out of mouseDrag.

darcs-hash:20070807201616-72aca-80f5d15118592f79aca8a2e928c4ad4f29fdf8b1

1 files changed, 2 insertions, 1 deletions

diff --git a/XMonad.hs b/XMonad.hs
index 8eec7b1..28f763d 100644
--- a/XMonad.hs
+++ b/XMonad.hs
@@ -43,7 +43,8 @@ data XState = XState
     { windowset    :: !WindowSet           -- ^ workspace list
     , mapped       :: !(S.Set Window)      -- ^ the Set of mapped windows
     , waitingUnmap :: !(M.Map Window Int)  -- ^ the number of expected UnmapEvents
-    , layouts      :: !(M.Map WorkspaceId (Layout Window, [Layout Window])) }
+    , layouts      :: !(M.Map WorkspaceId (Layout Window, [Layout Window]))
+    , dragging     :: !(Maybe (Position -> Position -> X (), X ())) }
                        -- ^ mapping of workspaces to descriptions of their layouts
 data XConf = XConf
     { display       :: Display      -- ^ the X11 display