From 7754569f8978dff5c7f6304295cafa487c42d318 Mon Sep 17 00:00:00 2001
From: Matthias Schiffer <mschiffer@universe-factory.net>
Date: Tue, 17 Sep 2013 04:15:48 +0200
Subject: Fix documentation for the sink function

---
 MetaTile/Layout/Floating.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'MetaTile/Layout')

diff --git a/MetaTile/Layout/Floating.hs b/MetaTile/Layout/Floating.hs
index 48abc7f..ac306d3 100644
--- a/MetaTile/Layout/Floating.hs
+++ b/MetaTile/Layout/Floating.hs
@@ -76,7 +76,7 @@ float w = do
     XS.modify $ \(FloatingStorage fw) -> FloatingStorage (M.insert w r fw)
     refresh
 
--- | Make a tiled window floating, using its suggested rectangle
+-- | Clear the floating status of a window
 sink :: Window -> X ()
 sink w = do
     XS.modify $ \(FloatingStorage fw) -> FloatingStorage (M.delete w fw)
-- 
cgit v1.2.3