From 3200334255a87f6528d8fe24b0a9622f5fa183c1 Mon Sep 17 00:00:00 2001
From: Adam Vogt <vogt.adam@gmail.com>
Date: Sun, 1 Nov 2009 20:03:12 +0100
Subject: Inline tupadd function in A.GridSelect

Ignore-this: 458968154303ab865c304f387d6ac83b

darcs-hash:20091101190312-1499c-a5e820382dbbbfca077f99f94e51b98ac3a2e760.gz
---
 XMonad/Actions/GridSelect.hs | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

(limited to 'XMonad/Actions/GridSelect.hs')

diff --git a/XMonad/Actions/GridSelect.hs b/XMonad/Actions/GridSelect.hs
index 4d069ba..0419f7c 100644
--- a/XMonad/Actions/GridSelect.hs
+++ b/XMonad/Actions/GridSelect.hs
@@ -237,9 +237,6 @@ diamondRestrict x y originX originY =
   map (\(x', y') -> (x' + fromInteger originX, y' + fromInteger originY)) .
   take 1000 $ diamond
 
-tupadd :: (Num t1, Num t) => (t, t1) -> (t, t1) -> (t, t1)
-tupadd (a,b) (c,d) = (a+c,b+d)
-
 findInElementMap :: (Eq a) => a -> [(a, b)] -> Maybe (a, b)
 findInElementMap pos = find ((== pos) . fst)
 
@@ -487,7 +484,7 @@ buildDefaultGSConfig :: (a -> Bool -> X (String,String)) -> GSConfig a
 buildDefaultGSConfig col = GSConfig 50 130 10 col "xft:Sans-8" defaultGSNav (1/2) (1/2)
 
 defaultGSNav :: NavigateMap
-defaultGSNav = M.map tupadd $ M.fromList
+defaultGSNav = M.map (\(x,y) (a,b) -> (x+a,y+b)) $ M.fromList
     [((0,xK_Left) ,(-1,0))
     ,((0,xK_h)    ,(-1,0))
     ,((0,xK_Right),(1,0))
-- 
cgit v1.2.3