RotView.hs: info and documentation

RotView.hs

@@ -1,12 +1,22 @@
-module XMonadContrib.RotView ( rotView ) where
+-----------------------------------------------------------------------------
-
+-- |
+-- Module      :  XMonadContrib.RotView
+-- Copyright   :  (c) David Roundy <droundy@darcs.net>
+-- License     :  BSD3-style (see LICENSE)
+--
+-- Maintainer  :  David Roundy <droundy@darcs.net>
+-- Stability   :  unstable
+-- Portability :  unportable
+--
 -- Provides bindings to cycle through non-empty workspaces.
+--
+-----------------------------------------------------------------------------
 
--- To use:
+module XMonadContrib.RotView (
--- import XMonadContrib.RotView
+                              -- * Usage
-
+                              -- $usage
---    , ((modMask .|. shiftMask, xK_Right), rotView True)
+                              rotView
---    , ((modMask .|. shiftMask, xK_Left), rotView False)
+                             ) where
 
 import Control.Monad.State ( gets )
 import Data.List ( sortBy )
@@ -16,6 +26,14 @@ import XMonad
 import StackSet hiding (filter)
 import qualified Operations as O
 
+-- $usage
+-- You can use this module with the following in your Config.hs file:
+-- 
+-- > import XMonadContrib.RotView
+--
+-- >   , ((modMask .|. shiftMask, xK_Right), rotView True)
+-- >   , ((modMask .|. shiftMask, xK_Left), rotView False)
+
 rotView :: Bool -> X ()
 rotView b = do
     ws <- gets windowset