Make RotView build, and add a brief description.

darcs-hash:20070503104234-03b70-399dc2bdd3dca37d4a11207daae51b1b359a7af2.gz

1 files changed, 4 insertions, 2 deletions

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