From f46106e1411d69ce91567cd0c1198a52bac1b517 Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Mon, 2 Apr 2007 09:24:18 +0200
Subject: Comment only.

darcs-hash:20070402072418-a5988-3b4db0be791c44772e0ce4ec49df25c16edaee94
---
 Operations.hs | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'Operations.hs')

diff --git a/Operations.hs b/Operations.hs
index 5c7a3e9..2558449 100644
--- a/Operations.hs
+++ b/Operations.hs
@@ -41,6 +41,11 @@ refresh = do
         whenJust (W.peekStack n ws) (io . raiseWindow d)
     whenJust (W.peek ws) setFocus
 
+-- | tile.  Compute the positions for windows in horizontal layout
+-- mode.
+--
+-- TODO generalize this to vertical layout
+--
 tile :: Rational -> Rectangle -> [Window] -> [(Window, Rectangle)]
 tile _ _ []    = []
 tile _ d [w]   = [(w, d)]
-- 
cgit v1.2.3