In A.GridSelect correct haddocks

Ignore-this: f7f714c42544d9230eb9c9bec86cd36a

darcs-hash:20091016171159-1499c-7b4594a01321d4b8cf861a0fe1024e901015e7ee.gz

1 files changed, 26 insertions, 20 deletions

diff --git a/XMonad/Actions/GridSelect.hs b/XMonad/Actions/GridSelect.hs
index bc72464..01f19bb 100644
--- a/XMonad/Actions/GridSelect.hs
+++ b/XMonad/Actions/GridSelect.hs
@@ -21,6 +21,7 @@ module XMonad.Actions.GridSelect (
     -- ** Customizing
     -- *** Using a common GSConfig
     -- $commonGSConfig
+
     -- *** Custom keybindings
     -- $keybindings
 
@@ -87,16 +88,14 @@ import Data.Word (Word8)
 --
 -- It is possible to bind a @gsconfig@ at top-level in your configuration. Like so:
 --
--- > gsconfig1 :: HasColorizer a => GSConfig a
+-- > -- the top of your config
+-- > {-# LANGUAGE NoMonomorphismRestriction #-}
+-- > import XMonad
+-- > ...
 -- > gsconfig1 = defaultGSConfig { gs_cellheight = 30, gs_cellWidth = 100 }
 --
--- Regarding type signatures: to leave them out in this case, add @{-# LANGUAGE
--- NoMonomorphismRestriction #-}@ to the top of your @xmonad.hs@.  Refer to
--- this page for an explanation:
--- <http://www.haskell.org/haskellwiki/Monomorphism_restriction>
---
--- @gsconfig2@ is an example where 'buildDefaultGSConfig' is used instead of
--- 'defaultGSConfig' in order to specify a custom colorizer (found in
+-- An example where 'buildDefaultGSConfig' is used instead of 'defaultGSConfig'
+-- in order to specify a custom colorizer is @gsconfig2@ (found in
 -- "XMonad.Actions.GridSelect#Colorizers"):
 --
 -- > gsconfig2 colorizer = (buildDefaultGSConfig colorizer) { gs_cellheight = 30, gs_cellWidth = 100 }
@@ -110,7 +109,7 @@ import Data.Word (Word8)
 -- >                      white            -- active fg
 -- >   where black = minBound
 -- >         white = maxBound
-
+--
 -- Then you can bind to:
 --
 --      ,((modMask x, xK_g), goToSelected  $ gsconfig2 myWinColorizer)
@@ -122,24 +121,31 @@ import Data.Word (Word8)
 --
 -- At the top of your config:
 --
+-- > {-# LANGAUGE NoMonomorphismRestriction #-}
+-- > import XMonad
 -- > import qualified Data.Map as M
 --
 -- Then define @gsconfig3@ which may be used in exactly the same manner as @gsconfig1@:
 --
--- > gsconfig3 :: HasColorizer a => GSConfig a
 -- > gsconfig3 = defaultGSConfig
 -- >    { gs_cellheight = 30
--- >    , gs_cellWidth = 100
--- >    , gs_navigate = M.unions [reset, nethackKeys, gs_navigate $ defaultGSConfig `asTypeOf` gsconfig3] }
--- >    where addPair (a,b) (x,y) = (a+x,b+y)
--- >          nethackKeys = M.map addPair
--- >                  $ M.fromList [((0,xK_y),(-1,-1)
--- >                               ,((0,xK_i),(1,-1)
--- >                               ,((0,xK_n),(-1,1)
--- >                               ,((0,xK_m),(1,1)
+-- >    , gs_cellwidth = 100
+-- >    , gs_navigate = M.unions
+-- >            [reset
+-- >            ,nethackKeys
+-- >            ,gs_navigate                               -- get the default navigation bindings
+-- >                $ defaultGSConfig `asTypeOf` gsconfig3 -- needed to fix an ambiguous type variable
+-- >            ]
+-- >    }
+-- >   where addPair (a,b) (x,y) = (a+x,b+y)
+-- >         nethackKeys = M.map addPair $ M.fromList
+-- >                               [((0,xK_y),(-1,-1))
+-- >                               ,((0,xK_i),(1,-1))
+-- >                               ,((0,xK_n),(-1,1))
+-- >                               ,((0,xK_m),(1,1))
 -- >                               ]
--- >          -- jump back to the center with the spacebar, regardless of the current position.
--- >          reset = M.singleton (0,xK_space) (const (0,0))
+-- >         -- jump back to the center with the spacebar, regardless of the current position.
+-- >         reset = M.singleton (0,xK_space) (const (0,0))
 
 -- $screenshots
 --