diff options
-rw-r--r-- | XMonad/Actions/MouseGestures.hs | 6 | ||||
-rw-r--r-- | XMonad/Layout/WindowNavigation.hs | 2 |
2 files changed, 2 insertions, 6 deletions
diff --git a/XMonad/Actions/MouseGestures.hs b/XMonad/Actions/MouseGestures.hs index 0a20cc5..bf652e1 100644 --- a/XMonad/Actions/MouseGestures.hs +++ b/XMonad/Actions/MouseGestures.hs @@ -22,6 +22,7 @@ module XMonad.Actions.MouseGestures ( ) where import XMonad +import XMonad.Layout.WindowNavigation (Direction(..)) import Data.IORef import qualified Data.Map as M @@ -56,11 +57,6 @@ import Control.Monad -- For detailed instructions on editing your mouse bindings, see -- "XMonad.Doc.Extending#Editing_mouse_bindings". --- | The four cardinal screen directions. A \"gesture\" is a sequence of --- directions. -data Direction = L | U | R | D - deriving (Eq, Ord, Show, Read, Enum, Bounded) - type Pos = (Position, Position) delta :: Pos -> Pos -> Position diff --git a/XMonad/Layout/WindowNavigation.hs b/XMonad/Layout/WindowNavigation.hs index bf07483..f21d004 100644 --- a/XMonad/Layout/WindowNavigation.hs +++ b/XMonad/Layout/WindowNavigation.hs @@ -67,7 +67,7 @@ data MoveWindowToWindow a = MoveWindowToWindow a a deriving ( Read, Show, Typeab instance Typeable a => Message (MoveWindowToWindow a) data Navigate = Go Direction | Swap Direction | Move Direction deriving ( Read, Show, Typeable ) -data Direction = U | D | R | L deriving ( Read, Show, Eq ) +data Direction = U | D | R | L deriving ( Read, Show, Eq, Ord, Enum, Bounded ) instance Message Navigate data WNConfig = |