From 099b5a16daa33f2f76e365776d3a74bd30ae141f Mon Sep 17 00:00:00 2001 From: Joachim Fasting Date: Sat, 6 Oct 2007 12:23:16 +0200 Subject: NoBorders.hs: unused bindings. darcs-hash:20071006102316-928c4-c2112372a688a0c1db5c8fc75c7e9d5babebc9fb.gz --- NoBorders.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/NoBorders.hs b/NoBorders.hs index 8787f65..f94dbf7 100644 --- a/NoBorders.hs +++ b/NoBorders.hs @@ -57,7 +57,7 @@ instance LayoutModifier WithBorder Window where unhook (WithBorder _ s) = setBorders borderWidth s - redoLayout (WithBorder n s) _ stack wrs = do + redoLayout (WithBorder n s) _ _ wrs = do setBorders borderWidth (ws \\ s) setBorders n ws return (wrs, Just $ WithBorder n ws) @@ -80,7 +80,7 @@ instance LayoutModifier SmartBorder Window where unhook (SmartBorder s) = setBorders borderWidth s - redoLayout (SmartBorder s) _ stack wrs = do + redoLayout (SmartBorder s) _ _ wrs = do ss <- gets (W.screens . windowset) if singleton ws && singleton ss -- cgit v1.2.3