Export types to reduce haddock warnings.

XMonad/Actions/DynamicWorkspaceGroups.hs

@@ -31,6 +31,8 @@ module XMonad.Actions.DynamicWorkspaceGroups
     , promptWSGroupView
     , promptWSGroupAdd
     , promptWSGroupForget
+
+    , WSGPrompt
     ) where
 
 import Data.List (find)
@@ -134,4 +136,4 @@ promptWSGroupAdd xp s =
 promptWSGroupForget :: XPConfig -> String -> X ()
 promptWSGroupForget xp s = do
   gs <- fmap (M.keys . unWSG) XS.get
-  mkXPrompt (WSGPrompt s) xp (mkComplFunFromList' gs) forgetWSGroup
+  mkXPrompt (WSGPrompt s) xp (mkComplFunFromList' gs) forgetWSGroup

XMonad/Actions/DynamicWorkspaces.hs

@@ -28,8 +28,8 @@ module XMonad.Actions.DynamicWorkspaces (
 
 import XMonad hiding (workspaces)
 import XMonad.StackSet hiding (filter, modify, delete)
-import XMonad.Prompt.Workspace
+import XMonad.Prompt.Workspace ( Wor(Wor), workspacePrompt )
-import XMonad.Prompt ( XPConfig, mkXPrompt, XPrompt(..) )
+import XMonad.Prompt ( XPConfig, mkXPrompt )
 import XMonad.Util.WorkspaceCompare ( getSortByIndex )
 import Data.List (find)
 import Data.Maybe (isNothing)
@@ -61,11 +61,6 @@ import Control.Monad (when)
 -- "XMonad.Actions.CopyWindow", 'windows', 'shift', and 'defaultXPConfig'.
 
 
-data Wor = Wor String
-
-instance XPrompt Wor where
-    showXPrompt (Wor x) = x
-
 mkCompl :: [String] -> String -> IO [String]
 mkCompl l s = return $ filter (\x -> take (length s) x == s) l
 

XMonad/Actions/FloatKeys.hs

@@ -17,7 +17,9 @@ module XMonad.Actions.FloatKeys (
                 keysMoveWindow,
                 keysMoveWindowTo,
                 keysResizeWindow,
-                keysAbsResizeWindow) where
+                keysAbsResizeWindow,
+                P, G,
+                ) where
 
 import XMonad
 

XMonad/Actions/Search.hs

@@ -51,9 +51,12 @@ module XMonad.Actions.Search (   -- * Usage
                                  wikipedia,
                                  wiktionary,
                                  youtube,
-                                 multi
+                                 multi,
                                   -- * Use case: searching with a submap
                                   -- $tip
+
+                                  -- * Types
+                                 Browser, Site, Query, Name, Search
                           ) where
 
 import Codec.Binary.UTF8.String (encode)

XMonad/Actions/TagWindows.hs

@@ -22,7 +22,8 @@ module XMonad.Actions.TagWindows (
                  focusDownTagged, focusDownTaggedGlobal,
                  shiftHere, shiftToScreen,
                  tagPrompt,
-                 tagDelPrompt
+                 tagDelPrompt,
+                 TagPrompt,
                  ) where
 
 import Prelude hiding (catch)

XMonad/Actions/WindowNavigation.hs

@@ -36,7 +36,7 @@ module XMonad.Actions.WindowNavigation (
                                        withWindowNavigationKeys,
                                        WNAction(..),
                                        go, swap,
-                                       Direction2D(..)
+                                       Direction2D(..), WNState,
                                        ) where
 
 import XMonad

XMonad/Actions/WorkspaceCursors.hs

@@ -32,10 +32,13 @@ module XMonad.Actions.WorkspaceCursors
 
     -- * Functions to pass to 'modifyLayer'
     ,focusNth'
-    ,noWrapUp,noWrapDown
+    ,noWrapUp,noWrapDown,
 
     -- * Todo
     -- $todo
+
+    -- * Types
+    Cursors,
     ) where
 
 import qualified XMonad.StackSet as W

XMonad/Actions/WorkspaceNames.hs

@@ -41,7 +41,8 @@ import qualified XMonad.Util.ExtensibleState as XS
 import XMonad.Actions.CycleWS (findWorkspace, WSType(..), Direction1D(..))
 import qualified XMonad.Actions.SwapWorkspaces as Swap
 import XMonad.Hooks.DynamicLog (PP(..))
-import XMonad.Prompt (showXPrompt, mkXPrompt, XPrompt, XPConfig)
+import XMonad.Prompt (mkXPrompt, XPConfig)
+import XMonad.Prompt.Workspace (Wor(Wor))
 import XMonad.Util.WorkspaceCompare (getSortByIndex)
 
 import qualified Data.Map as M
@@ -106,10 +107,6 @@ setCurrentWorkspaceName name = do
     current <- gets (W.currentTag . windowset)
     setWorkspaceName current name
 
-data Wor = Wor String
-instance XPrompt Wor where
-    showXPrompt (Wor x) = x
-
 -- | Prompt for a new name for the current workspace and set it.
 renameWorkspace :: XPConfig -> X ()
 renameWorkspace conf = do

XMonad/Hooks/ManageHelpers.hs

@@ -45,7 +45,8 @@ module XMonad.Hooks.ManageHelpers (
     doSideFloat,
     doFloatAt,
     doFloatDep,
-    doHideIgnore
+    doHideIgnore,
+    Match,
 ) where
 
 import XMonad

XMonad/Hooks/UrgencyHook.hs

@@ -65,7 +65,8 @@ module XMonad.Hooks.UrgencyHook (
                                  readUrgents, withUrgents,
                                  StdoutUrgencyHook(..),
                                  SpawnUrgencyHook(..),
-                                 UrgencyHook(urgencyHook)
+                                 UrgencyHook(urgencyHook),
+                                 Interval,
                                  ) where
 
 import XMonad

XMonad/Layout/AutoMaster.hs

@@ -18,7 +18,7 @@
 module XMonad.Layout.AutoMaster (
                              -- * Usage
                              -- $usage
-                             autoMaster
+                             autoMaster, AutoMaster
                             ) where
 import Control.Monad
 

XMonad/Layout/BorderResize.hs

@@ -24,6 +24,7 @@ module XMonad.Layout.BorderResize
       -- $usage
       borderResize
     , BorderResize (..)
+    , RectWithBorders, BorderInfo,
     ) where
 
 import XMonad

XMonad/Layout/ButtonDecoration.hs

@@ -22,7 +22,8 @@
 module XMonad.Layout.ButtonDecoration
     ( -- * Usage:
       -- $usage
-      buttonDeco
+      buttonDeco,
+      ButtonDecoration,
     ) where
 
 import XMonad

XMonad/Layout/CenteredMaster.hs

@@ -21,7 +21,8 @@ module XMonad.Layout.CenteredMaster (
          -- $usage
 
          centerMaster,
-         topRightMaster
+         topRightMaster,
+         CenteredMaster, TopRightMaster,
          ) where
 
 import XMonad

XMonad/Layout/Decoration.hs

@@ -27,6 +27,7 @@ module XMonad.Layout.Decoration
     , isInStack, isVisible, isInvisible, isWithin, fi
     , findWindowByDecoration
     , module XMonad.Layout.LayoutModifier
+    , DecorationState, OrigWin
     ) where
 
 import Control.Monad (when)

XMonad/Layout/DraggingVisualizer.hs

@@ -17,7 +17,8 @@
 
 module XMonad.Layout.DraggingVisualizer
     ( draggingVisualizer,
-      DraggingVisualizerMsg (..)
+      DraggingVisualizerMsg (..),
+      DraggingVisualizer,
     ) where
 
 import XMonad

XMonad/Layout/Drawer.hs

@@ -29,6 +29,8 @@ module XMonad.Layout.Drawer
     , onLeft, onTop, onRight, onBottom
 
     , module XMonad.Util.WindowProperties
+
+    , Drawer, Reflected
     ) where
 
 import XMonad

XMonad/Layout/Gaps.hs

@@ -28,7 +28,7 @@
 module XMonad.Layout.Gaps (
                                -- * Usage
                                -- $usage
-                          Direction2D(..),
+                          Direction2D(..), Gaps,
                           GapSpec, gaps, GapMessage(..)
 
                           ) where

XMonad/Layout/Groups.hs

@@ -507,4 +507,4 @@ splitGroup l0 z@(Just s) | G l (Just ws) <- W.focus s
         W.Stack f up (d:down) -> let g1 = G l  $ Just $ W.Stack f up []
                                      g2 = G l0 $ Just $ W.Stack d [] down
                                  in insertUpZ g1 $ onFocusedZ (const g2) z
-splitGroup _ _ = Nothing
+splitGroup _ _ = Nothing

XMonad/Layout/IM.hs

@@ -25,6 +25,7 @@ module XMonad.Layout.IM (
     -- * TODO
     -- $todo
         Property(..), IM(..), withIM, gridIM,
+        AddRoster,
 ) where
 
 import XMonad

XMonad/Layout/ImageButtonDecoration.hs

@@ -29,6 +29,7 @@ module XMonad.Layout.ImageButtonDecoration
       imageButtonDeco
     , defaultThemeWithImageButtons
     , imageTitleBarButtonHandler
+    , ImageButtonDecoration
     ) where
 
 import XMonad

XMonad/Layout/LayoutBuilder.hs

@@ -24,7 +24,8 @@ module XMonad.Layout.LayoutBuilder (
   SubMeasure (..),
   SubBox (..),
   absBox,
-  relBox
+  relBox,
+  LayoutN,
 ) where
 
 import XMonad

XMonad/Layout/LayoutCombinators.hs

@@ -47,6 +47,9 @@ module XMonad.Layout.LayoutCombinators
       -- $jtl
     , (|||)
     , JumpToLayout(..)
+
+      -- * Types
+    , NewSelect
     ) where
 
 import Data.Maybe ( isJust, isNothing )

XMonad/Layout/LayoutHints.hs

@@ -20,6 +20,7 @@ module XMonad.Layout.LayoutHints
     , layoutHintsWithPlacement
     , layoutHintsToCenter
     , LayoutHints
+    , LayoutHintsToCenter
     , hintsEventHook
     )  where
 

XMonad/Layout/LayoutScreens.hs

@@ -16,7 +16,8 @@
 module XMonad.Layout.LayoutScreens (
                                     -- * Usage
                                     -- $usage
-                                    layoutScreens, layoutSplitScreen, fixedLayout
+                                    layoutScreens, layoutSplitScreen, fixedLayout,
+                                    FixedLayout,
                                    ) where
 
 import XMonad

XMonad/Layout/LimitWindows.hs

@@ -29,6 +29,9 @@ module XMonad.Layout.LimitWindows (
     -- * For tests
     select,update,Selection(..),updateAndSelect,
 #endif
+
+    -- * Types
+    LimitWindows, Selection,
     ) where
 
 import XMonad.Layout.LayoutModifier

XMonad/Layout/MagicFocus.hs

@@ -20,7 +20,8 @@ module XMonad.Layout.MagicFocus
      promoteWarp,
      promoteWarp',
      followOnlyIf,
-     disableFollowOnWS
+     disableFollowOnWS,
+     MagicFocus,
     ) where
 
 import XMonad

XMonad/Layout/Magnifier.hs

@@ -26,7 +26,8 @@ module XMonad.Layout.Magnifier
       magnifiercz,
       magnifiercz',
       maximizeVertical,
-      MagnifyMsg (..)
+      MagnifyMsg (..),
+      Magnifier,
     ) where
 
 import XMonad

XMonad/Layout/Master.hs

@@ -18,7 +18,8 @@ module XMonad.Layout.Master (
     -- $usage
 
     mastered,
-    multimastered
+    multimastered,
+    AddMaster,
 ) where
 
 import XMonad

XMonad/Layout/Maximize.hs

@@ -19,7 +19,8 @@ module XMonad.Layout.Maximize (
         -- * Usage
         -- $usage
         maximize,
-        maximizeRestore
+        maximizeRestore,
+        Maximize, MaximizeRestore,
     ) where
 
 import XMonad

XMonad/Layout/Minimize.hs

@@ -19,7 +19,8 @@ module XMonad.Layout.Minimize (
         -- $usage
         minimize,
         minimizeWindow,
-        MinimizeMsg(RestoreMinimizedWin,RestoreNextMinimizedWin)
+        MinimizeMsg(RestoreMinimizedWin,RestoreNextMinimizedWin),
+        Minimize,
     ) where
 
 import XMonad

XMonad/Layout/Mosaic.hs

@@ -21,6 +21,8 @@ module XMonad.Layout.Mosaic (
     ,mosaic
     ,changeMaster
     ,changeFocused
+
+    ,Mosaic
     )
     where
 

XMonad/Layout/MosaicAlt.hs

@@ -25,6 +25,9 @@ module XMonad.Layout.MosaicAlt (
         , tallWindowAlt
         , wideWindowAlt
         , resetAlt
+
+        , Params, Param
+        , HandleWindowAlt
     ) where
 
 import XMonad

XMonad/Layout/MouseResizableTile.hs

@@ -30,6 +30,7 @@ module XMonad.Layout.MouseResizableTile (
                                     isMirrored,
                                     draggerType,
                                     DraggerType (..),
+                                    MouseResizableTile,
                                    ) where
 
 import XMonad hiding (tile, splitVertically, splitHorizontallyBy)

XMonad/Layout/MultiColumns.hs

@@ -18,7 +18,8 @@ module XMonad.Layout.MultiColumns (
                               -- * Usage
                               -- $usage
 
-                              multiCol
+                              multiCol,
+                              MultiCol,
                              ) where
 
 import XMonad

XMonad/Layout/MultiToggle.hs

@@ -24,7 +24,11 @@ module XMonad.Layout.MultiToggle (
     EOT(..),
     single,
     mkToggle,
-    mkToggle1
+    mkToggle1,
+
+    HList,
+    HCons,
+    MultiToggle,
 ) where
 
 import XMonad

XMonad/Layout/NoBorders.hs

@@ -27,7 +27,8 @@ module XMonad.Layout.NoBorders (
                                 lessBorders,
                                 SetsAmbiguous(..),
                                 Ambiguity(..),
-                                With(..)
+                                With(..),
+                                SmartBorder, WithBorder, ConfigurableBorder,
                                ) where
 
 import XMonad

XMonad/Layout/NoFrillsDecoration.hs

@@ -22,6 +22,7 @@ module XMonad.Layout.NoFrillsDecoration
       noFrillsDeco
 
     , module XMonad.Layout.SimpleDecoration
+    , NoFrillsDecoration
     ) where
 
 import XMonad.Layout.Decoration

XMonad/Layout/PositionStoreFloat.hs

@@ -22,7 +22,7 @@
 module XMonad.Layout.PositionStoreFloat
     ( -- * Usage
       -- $usage
-      positionStoreFloat
+      positionStoreFloat, PositionStoreFloat
     ) where
 
 import XMonad

XMonad/Layout/ResizeScreen.hs

@@ -22,6 +22,7 @@ module XMonad.Layout.ResizeScreen
     , resizeHorizontalRight, resizeVerticalBottom
     , withNewRectangle
     , ResizeScreen (..)
+    , ResizeMode
     ) where
 
 import XMonad

XMonad/Layout/ShowWName.hs

@@ -19,6 +19,7 @@ module XMonad.Layout.ShowWName
     , showWName'
     , defaultSWNConfig
     , SWNConfig(..)
+    , ShowWName
     ) where
 
 import XMonad

XMonad/Layout/Spacing.hs

@@ -17,7 +17,7 @@ module XMonad.Layout.Spacing (
                                -- * Usage
                                -- $usage
 
-                               spacing
+                               spacing, Spacing,
 
                              ) where
 

XMonad/Layout/Spiral.hs

@@ -21,6 +21,8 @@ module XMonad.Layout.Spiral (
                             , spiralWithDir
                             , Rotation (..)
                             , Direction (..)
+
+                            , SpiralWithDir
                             ) where
 
 import Data.Ratio

XMonad/Layout/SubLayouts.hs

@@ -28,6 +28,8 @@ module XMonad.Layout.SubLayouts (
 
     defaultSublMap,
 
+    Sublayout,
+
     -- * Screenshots
     -- $screenshots
 

XMonad/Layout/Tabbed.hs

@@ -26,6 +26,7 @@ module XMonad.Layout.Tabbed
     , TabbedDecoration (..)
     , shrinkText, CustomShrink(CustomShrink)
     , Shrinker(..)
+    , TabbarShown, TabbarLocation
     ) where
 
 import Data.List

XMonad/Layout/ToggleLayouts.hs

@@ -16,7 +16,7 @@
 module XMonad.Layout.ToggleLayouts (
     -- * Usage
     -- $usage
-    toggleLayouts, ToggleLayout(..)
+    toggleLayouts, ToggleLayout(..), ToggleLayouts
     ) where
 
 import XMonad

XMonad/Layout/WindowNavigation.hs

@@ -21,7 +21,8 @@ module XMonad.Layout.WindowNavigation (
                                    Navigate(..), Direction2D(..),
                                    MoveWindowToWindow(..),
                                    navigateColor, navigateBrightness,
-                                   noNavigateBorders, defaultWNConfig
+                                   noNavigateBorders, defaultWNConfig,
+                                   WNConfig, WindowNavigation,
                                   ) where
 
 import Data.List ( nub, sortBy, (\\) )

XMonad/Layout/WindowSwitcherDecoration.hs

@@ -20,7 +20,8 @@ module XMonad.Layout.WindowSwitcherDecoration
       -- $usage
       windowSwitcherDecoration,
       windowSwitcherDecorationWithButtons,
-      windowSwitcherDecorationWithImageButtons
+      windowSwitcherDecorationWithImageButtons,
+      WindowSwitcherDecoration, ImageWindowSwitcherDecoration,
     ) where
 
 import XMonad

XMonad/Layout/WorkspaceDir.hs

@@ -25,7 +25,8 @@ module XMonad.Layout.WorkspaceDir (
                                    -- * Usage
                                    -- $usage
                                    workspaceDir,
-                                   changeDir
+                                   changeDir,
+                                   WorkspaceDir,
                                   ) where
 
 import Prelude hiding (catch)

XMonad/Prompt.hs

@@ -61,6 +61,8 @@ module XMonad.Prompt
     , initMatches
     , historyUpMatching
     , historyDownMatching
+    -- * Types
+    , XPState
     ) where
 
 import Prelude hiding (catch)

XMonad/Prompt/AppLauncher.hs

@@ -18,6 +18,9 @@ module XMonad.Prompt.AppLauncher ( -- * Usage
                                    ,module XMonad.Prompt
                                   -- * Use case: launching gimp with file
                                   -- $tip
+
+                                  -- * Types
+                                   ,Application, AppPrompt,
                                   ) where
 
 import XMonad (X(),MonadIO)

XMonad/Prompt/AppendFile.hs

@@ -22,7 +22,8 @@ module XMonad.Prompt.AppendFile (
                                  -- * Usage
                                  -- $usage
 
-                                 appendFilePrompt
+                                 appendFilePrompt,
+                                 AppendFile,
                                 ) where
 
 import XMonad.Core

XMonad/Prompt/DirExec.hs

@@ -21,6 +21,7 @@ module XMonad.Prompt.DirExec
       -- $usage
       dirExecPrompt
     , dirExecPromptNamed
+    , DirExec
     ) where
 
 import Prelude hiding (catch)

XMonad/Prompt/Directory.hs

@@ -15,7 +15,8 @@
 module XMonad.Prompt.Directory (
                              -- * Usage
                              -- $usage
-                             directoryPrompt
+                             directoryPrompt,
+                             Dir,
                               ) where
 
 import XMonad

XMonad/Prompt/Input.hs

@@ -18,7 +18,8 @@ module XMonad.Prompt.Input (
                             -- $usage
                             inputPrompt,
                             inputPromptWithCompl,
-                            (?+)
+                            (?+),
+                            InputPrompt,
                            ) where
 
 import XMonad.Core

XMonad/Prompt/Layout.hs

@@ -21,6 +21,7 @@ module XMonad.Prompt.Layout (
 import Data.List ( sort, nub )
 import XMonad hiding ( workspaces )
 import XMonad.Prompt
+import XMonad.Prompt.Workspace ( Wor(..) )
 import XMonad.StackSet ( workspaces, layout )
 import XMonad.Layout.LayoutCombinators ( JumpToLayout(..) )
 
@@ -43,11 +44,6 @@ import XMonad.Layout.LayoutCombinators ( JumpToLayout(..) )
 -- more a proof-of-principle than something you can actually use
 -- productively.
 
-data Wor = Wor String
-
-instance XPrompt Wor where
-    showXPrompt (Wor x) = x
-
 layoutPrompt :: XPConfig -> X ()
 layoutPrompt c = do ls <- gets (map (description . layout) . workspaces . windowset)
                     mkXPrompt (Wor "") c (mkComplFunFromList' $ sort $ nub ls) (sendMessage . JumpToLayout)

XMonad/Prompt/Man.hs

@@ -20,8 +20,10 @@ module XMonad.Prompt.Man (
                           -- $usage
                           manPrompt
                          , getCommandOutput
+                         , Man
                          ) where
 
+
 import XMonad
 import XMonad.Prompt
 import XMonad.Util.Run

XMonad/Prompt/RunOrRaise.hs

@@ -16,7 +16,8 @@
 module XMonad.Prompt.RunOrRaise
     ( -- * Usage
       -- $usage
-      runOrRaisePrompt
+      runOrRaisePrompt,
+      RunOrRaisePrompt,
     ) where
 
 import XMonad hiding (config)

XMonad/Prompt/Ssh.hs

@@ -15,7 +15,8 @@
 module XMonad.Prompt.Ssh
     ( -- * Usage
       -- $usage
-      sshPrompt
+      sshPrompt,
+      Ssh,
     ) where
 
 import Prelude hiding (catch)

XMonad/Prompt/Theme.hs

@@ -15,6 +15,7 @@ module XMonad.Prompt.Theme
     ( -- * Usage
       -- $usage
       themePrompt,
+      ThemePrompt,
     ) where
 
 import Control.Arrow ( (&&&) )

XMonad/Prompt/Window.hs

@@ -20,7 +20,8 @@ module XMonad.Prompt.Window
     -- $usage
     windowPromptGoto,
     windowPromptBring,
-    windowPromptBringCopy
+    windowPromptBringCopy,
+    WindowPrompt,
     ) where
 
 import qualified Data.Map as M

XMonad/Prompt/Workspace.hs

@@ -15,7 +15,10 @@
 module XMonad.Prompt.Workspace (
                              -- * Usage
                              -- $usage
-                             workspacePrompt
+                             workspacePrompt,
+
+                             -- * For developers
+                             Wor(Wor),
                               ) where
 
 import XMonad hiding ( workspaces )

XMonad/Prompt/XMonad.hs

@@ -16,7 +16,8 @@ module XMonad.Prompt.XMonad (
                              -- * Usage
                              -- $usage
                              xmonadPrompt,
-                             xmonadPromptC
+                             xmonadPromptC,
+                             XMonad,
                               ) where
 
 import XMonad

XMonad/Util/Dzen.hs

@@ -14,7 +14,7 @@
 
 module XMonad.Util.Dzen (
     -- * Flexible interface
-    dzenConfig,
+    dzenConfig, DzenConfig,
     timeout,
     font,
     xScreen,
@@ -34,7 +34,7 @@ module XMonad.Util.Dzen (
     -- * Miscellaneous
     seconds,
     chomp,
-    (>=>)
+    (>=>),
   ) where
 
 import Control.Monad

XMonad/Util/PositionStore.hs

@@ -22,7 +22,8 @@ module XMonad.Util.PositionStore (
         posStoreInsert,
         posStoreMove,
         posStoreQuery,
-        posStoreRemove
+        posStoreRemove,
+        PositionStore,
     ) where
 
 import XMonad