XMonad.Actions.MouseGestures: reexport Direction from WindowNavigation, avoid type duplication

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

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 =