From f85c175e63647190f42e234167fc94d8eed30d60 Mon Sep 17 00:00:00 2001
From: Roman Cheplyaka <roma@ro-che.info>
Date: Mon, 10 Nov 2008 20:15:34 +0100
Subject: Exported shrinkWhile from Decoration to use in GridSelect

darcs-hash:20081110191534-3ebed-aad022b55c2e295f1652358de879a40d9f970ac4.gz
---
 XMonad/Actions/GridSelect.hs | 11 -----------
 XMonad/Layout/Decoration.hs  |  2 +-
 2 files changed, 1 insertion(+), 12 deletions(-)

diff --git a/XMonad/Actions/GridSelect.hs b/XMonad/Actions/GridSelect.hs
index 779ba19..c268f6a 100644
--- a/XMonad/Actions/GridSelect.hs
+++ b/XMonad/Actions/GridSelect.hs
@@ -96,17 +96,6 @@ tupadd (a,b) (c,d) = (a+c,b+d)
 tupmul :: (Num t1, Num t) => (t, t1) -> (t, t1) -> (t, t1)
 tupmul (a,b) (c,d) = (a*c,b*d)
 
--- shrinkWhile should be exported  from Decoration.hs
-shrinkWhile :: Monad m => (String -> [String]) -> (String -> m Bool) -> String -> m String
-shrinkWhile sh p x = sw $ sh x
-    where sw [n] = return n
-          sw [] = return ""
-          sw (n:ns) = do
-                        cond <- p n
-                        if cond
-                          then sw ns
-                          else return n
-
 drawWinBox :: Display -> Window -> XMonadFont -> (String, String) -> Integer -> Integer -> String -> Integer -> Integer -> Integer -> X ()
 drawWinBox dpy win font (fg,bg) ch cw text x y cp = do
   gc <- liftIO $ createGC dpy win
diff --git a/XMonad/Layout/Decoration.hs b/XMonad/Layout/Decoration.hs
index c17d71c..776108f 100644
--- a/XMonad/Layout/Decoration.hs
+++ b/XMonad/Layout/Decoration.hs
@@ -24,7 +24,7 @@ module XMonad.Layout.Decoration
     , DecorationStyle (..)
     , DefaultDecoration (..)
     , Shrinker (..), DefaultShrinker
-    , shrinkText, CustomShrink ( CustomShrink )
+    , shrinkText, CustomShrink ( CustomShrink ), shrinkWhile
     , isInStack, isVisible, isInvisible, isWithin, fi
     , module XMonad.Layout.LayoutModifier
     ) where
-- 
cgit v1.2.3