diff options
author | Lukas Mai <l.mai@web.de> | 2008-03-22 20:34:57 +0100 |
---|---|---|
committer | Lukas Mai <l.mai@web.de> | 2008-03-22 20:34:57 +0100 |
commit | f263d1b48e1af914881a6fcc36a05133f3a8bcea (patch) | |
tree | c11a889de4f26f1f24f851c949347b7ec02882f4 /XMonad | |
parent | 00ebc8456731a98a10cac642bac16aeec54a37dc (diff) | |
download | XMonadContrib-f263d1b48e1af914881a6fcc36a05133f3a8bcea.tar.gz XMonadContrib-f263d1b48e1af914881a6fcc36a05133f3a8bcea.tar.xz XMonadContrib-f263d1b48e1af914881a6fcc36a05133f3a8bcea.zip |
XMonad.Actions.MouseGestures: reexport Direction from WindowNavigation, avoid type duplication
darcs-hash:20080322193457-462cf-334fecefc720745f33a06e2224bd8f292ad70991.gz
Diffstat (limited to 'XMonad')
-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 = |