From c1a6ed7be8b090cea63a70fa86ee614d011d0f63 Mon Sep 17 00:00:00 2001 From: Daniel Schoepe Date: Sat, 19 Sep 2009 21:17:17 +0200 Subject: Factor out direction types and put them in X.U.Types Ignore-this: b2255ec2754fcdf797b1ce2c082642ba This patch factors out commonly used direction types like data Direction darcs-hash:20090919191717-7f603-09c283e51a0b886d260008676d71e3daf31f4394.gz --- XMonad/Util/Types.hs | 30 ++++++++++++++++++++++++++++++ 1 file changed, 30 insertions(+) create mode 100644 XMonad/Util/Types.hs (limited to 'XMonad/Util') diff --git a/XMonad/Util/Types.hs b/XMonad/Util/Types.hs new file mode 100644 index 0000000..48ffd54 --- /dev/null +++ b/XMonad/Util/Types.hs @@ -0,0 +1,30 @@ +{-# LANGUAGE DeriveDataTypeable #-} +----------------------------------------------------------------------------- +-- | +-- Module : XMonad.Util.Types +-- Copyright : (c) Daniel Schoepe (2009) +-- License : BSD3-style (see LICENSE) +-- +-- Maintainer : Daniel Schoepe +-- Stability : unstable +-- Portability : unportable +-- +-- Miscellaneous commonly used types. +-- +----------------------------------------------------------------------------- + +module XMonad.Util.Types (Direction1D(..) + ,Direction2D(..) + ) where + +import Data.Typeable (Typeable) + +-- | One-dimensional directions: +data Direction1D = Next | Prev deriving (Eq,Read,Show,Typeable) + +-- | Two-dimensional directions: +data Direction2D = U -- ^ Up + | D -- ^ Down + | R -- ^ Right + | L -- ^ Left + deriving (Eq,Read,Show,Ord,Bounded,Typeable) -- cgit v1.2.3