diff options
| author | Joachim Fasting <joachim.fasting@gmail.com> | 2007-10-06 12:23:16 +0200 |
|---|---|---|
| committer | Joachim Fasting <joachim.fasting@gmail.com> | 2007-10-06 12:23:16 +0200 |
| commit | 099b5a16daa33f2f76e365776d3a74bd30ae141f (patch) | |
| tree | 0c8a2c9603ca88cdd9138e7e32318fb1799a000d | |
| parent | 2c4cee6eb79bb4e2bacd2687d3ceab7e724ad889 (diff) | |
| download | XMonadContrib-099b5a16daa33f2f76e365776d3a74bd30ae141f.tar.gz XMonadContrib-099b5a16daa33f2f76e365776d3a74bd30ae141f.tar.xz XMonadContrib-099b5a16daa33f2f76e365776d3a74bd30ae141f.zip | |
NoBorders.hs: unused bindings.
darcs-hash:20071006102316-928c4-c2112372a688a0c1db5c8fc75c7e9d5babebc9fb.gz
| -rw-r--r-- | NoBorders.hs | 4 |
1 files 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 |