From 3004c46d9ba6562f8c8dcc8fe9081b69318cdc43 Mon Sep 17 00:00:00 2001
From: Chris Mears <chris@cmears.id.au>
Date: Thu, 3 May 2007 12:42:34 +0200
Subject: Make RotView build, and add a brief description.

darcs-hash:20070503104234-03b70-399dc2bdd3dca37d4a11207daae51b1b359a7af2.gz
---
 RotView.hs | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'RotView.hs')

diff --git a/RotView.hs b/RotView.hs
index 8b58fa1..bfe85f3 100644
--- a/RotView.hs
+++ b/RotView.hs
@@ -1,4 +1,6 @@
-module XMonad.RotView ( rotView ) where
+module XMonadContrib.RotView ( rotView ) where
+
+-- Provides bindings to cycle through non-empty workspaces.
 
 -- To use:
 -- include XMonad.RotView
@@ -14,7 +16,7 @@ import XMonad ( X, WorkspaceId, workspace )
 import StackSet ( StackSet, focus )
 import qualified StackSet as W ( current )
 
-rotView :: Bool -> X m ()
+rotView :: Bool -> X ()
 rotView b = do ws <- gets workspace
                let m = W.current ws
                    allws = if b then allWorkspaces ws else reverse $ allWorkspaces ws
-- 
cgit v1.2.3