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(-)
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