From 22fbe6b7a3e6af62c35958afb149945a43d3b874 Mon Sep 17 00:00:00 2001 From: Ilya Portnov Date: Sat, 14 May 2011 15:22:32 +0200 Subject: Cleanup in X.L.LayoutBuilderP. Ignore-this: 59d9ce37218424e1bc225a42d71982ab Remove unused datatype declaration and export usefull typeclass. darcs-hash:20110514132232-c5067-a40e438b21f60a6c794b8b0ea77c1730b203ce44.gz --- XMonad/Layout/LayoutBuilderP.hs | 9 ++------- 1 file changed, 2 insertions(+), 7 deletions(-) (limited to 'XMonad/Layout/LayoutBuilderP.hs') diff --git a/XMonad/Layout/LayoutBuilderP.hs b/XMonad/Layout/LayoutBuilderP.hs index 7702a4f..a29a0c9 100644 --- a/XMonad/Layout/LayoutBuilderP.hs +++ b/XMonad/Layout/LayoutBuilderP.hs @@ -16,9 +16,9 @@ module XMonad.Layout.LayoutBuilderP ( LayoutP (..), + Predicate (..), layoutP, layoutAll, - B.relBox, B.absBox, - PropertyRE (..) + B.relBox, B.absBox ) where import Control.Monad @@ -37,11 +37,6 @@ class Predicate p w where alwaysTrue :: w -> p -- ^ A predicate that is always True. First argument is dummy, we always set it to undefined checkPredicate :: p -> w -> X Bool -- ^ Check if given object (window or smth else) matches that predicate --- | A wrapper for X.U.WindowProperties.Property. --- Checks using regular expression. -data PropertyRE = RE Property - deriving (Show,Read,Typeable) - -- | Data type for our layout. data LayoutP p l1 l2 a = LayoutP (Maybe a) (Maybe a) p B.SubBox (Maybe B.SubBox) (l1 a) (Maybe (l2 a)) -- cgit v1.2.3