From bfb82d0656f23b9a5b68b31dc985423844499f34 Mon Sep 17 00:00:00 2001
From: Adam Vogt <vogt.adam@gmail.com>
Date: Thu, 18 Jun 2009 03:01:18 +0200
Subject: use 'take 1' instead of custom truncHead function in
 L.WindowNavigation

Ignore-this: ecbb2063337bb87108c12a3c3f8ceeba

darcs-hash:20090618010118-1499c-7df4207cf205d4a669fbfb68d375f63e27ad1b66.gz
---
 XMonad/Layout/WindowNavigation.hs | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

(limited to 'XMonad/Layout/WindowNavigation.hs')

diff --git a/XMonad/Layout/WindowNavigation.hs b/XMonad/Layout/WindowNavigation.hs
index e8ef796..50d2a3c 100644
--- a/XMonad/Layout/WindowNavigation.hs
+++ b/XMonad/Layout/WindowNavigation.hs
@@ -130,7 +130,7 @@ instance LayoutModifier WindowNavigation Window where
                             (\d -> take 1 $ navigable d pt wrs) [U,D,R,L]
                wnavigablec = nub $ concatMap
                             (\d -> map (\(win,_) -> (win,dirc d)) $
-                                   truncHead $ navigable d pt wrs) [U,D,R,L]
+                                   take 1 $ navigable d pt wrs) [U,D,R,L]
                wothers = case state of Just (NS _ wo) -> map fst wo
                                        _              -> []
            mapM_ (sc nbc) (wothers \\ map fst wnavigable)
@@ -192,10 +192,6 @@ instance LayoutModifier WindowNavigation Window where
 navigable :: Direction -> Point -> [(Window, Rectangle)] -> [(Window, Rectangle)]
 navigable d pt = sortby d . filter (inr d pt . snd)
 
-truncHead :: [a] -> [a]
-truncHead (x:_) = [x]
-truncHead [] = []
-
 sc :: Pixel -> Window -> X ()
 sc c win = withDisplay $ \dpy -> io $ setWindowBorder dpy win c
 
-- 
cgit v1.2.3