From f263d1b48e1af914881a6fcc36a05133f3a8bcea Mon Sep 17 00:00:00 2001 From: Lukas Mai Date: Sat, 22 Mar 2008 20:34:57 +0100 Subject: XMonad.Actions.MouseGestures: reexport Direction from WindowNavigation, avoid type duplication darcs-hash:20080322193457-462cf-334fecefc720745f33a06e2224bd8f292ad70991.gz --- XMonad/Actions/MouseGestures.hs | 6 +----- 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 = -- cgit v1.2.3