Export types to reduce haddock warnings.

2025-05-19 03:20:21 -07:00 · 2010-10-23 19:57:55 +00:00 · 2010-10-23 19:57:55 +00:00 · 067ccb950e
commit 067ccb950e
parent 0226b8cb4f
65 changed files with 125 additions and 58 deletions
--- a/XMonad/Actions/DynamicWorkspaceGroups.hs
+++ b/XMonad/Actions/DynamicWorkspaceGroups.hs
@ -31,6 +31,8 @@ module XMonad.Actions.DynamicWorkspaceGroups
    , promptWSGroupView
    , promptWSGroupAdd
    , promptWSGroupForget
+
+    , WSGPrompt
    ) where

 import Data.List (find)
--- a/XMonad/Actions/DynamicWorkspaces.hs
+++ b/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 ( XPConfig, mkXPrompt, XPrompt(..) )
+import XMonad.Prompt.Workspace ( Wor(Wor), workspacePrompt )
+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

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

 import XMonad

--- a/XMonad/Actions/Search.hs
+++ b/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)
--- a/XMonad/Actions/TagWindows.hs
+++ b/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)
--- a/XMonad/Actions/WindowNavigation.hs
+++ b/XMonad/Actions/WindowNavigation.hs
@ -36,7 +36,7 @@ module XMonad.Actions.WindowNavigation (
                                       withWindowNavigationKeys,
                                       WNAction(..),
                                       go, swap,
-                                       Direction2D(..)
+                                       Direction2D(..), WNState,
                                       ) where

 import XMonad
--- a/XMonad/Actions/WorkspaceCursors.hs
+++ b/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
--- a/XMonad/Actions/WorkspaceNames.hs
+++ b/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
--- a/XMonad/Hooks/ManageHelpers.hs
+++ b/XMonad/Hooks/ManageHelpers.hs
@ -45,7 +45,8 @@ module XMonad.Hooks.ManageHelpers (
    doSideFloat,
    doFloatAt,
    doFloatDep,
-    doHideIgnore
+    doHideIgnore,
+    Match,
 ) where

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

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

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

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

 import XMonad
--- a/XMonad/Layout/CenteredMaster.hs
+++ b/XMonad/Layout/CenteredMaster.hs
@ -21,7 +21,8 @@ module XMonad.Layout.CenteredMaster (
         -- $usage

         centerMaster,
-         topRightMaster
+         topRightMaster,
+         CenteredMaster, TopRightMaster,
         ) where

 import XMonad
--- a/XMonad/Layout/Decoration.hs
+++ b/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)
--- a/XMonad/Layout/DraggingVisualizer.hs
+++ b/XMonad/Layout/DraggingVisualizer.hs
@ -17,7 +17,8 @@

 module XMonad.Layout.DraggingVisualizer
    ( draggingVisualizer,
-      DraggingVisualizerMsg (..)
+      DraggingVisualizerMsg (..),
+      DraggingVisualizer,
    ) where

 import XMonad
--- a/XMonad/Layout/Drawer.hs
+++ b/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
--- a/XMonad/Layout/Gaps.hs
+++ b/XMonad/Layout/Gaps.hs
@ -28,7 +28,7 @@
 module XMonad.Layout.Gaps (
                               -- * Usage
                               -- $usage
-                          Direction2D(..),
+                          Direction2D(..), Gaps,
                          GapSpec, gaps, GapMessage(..)

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

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

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

 import XMonad
--- a/XMonad/Layout/LayoutCombinators.hs
+++ b/XMonad/Layout/LayoutCombinators.hs
@ -47,6 +47,9 @@ module XMonad.Layout.LayoutCombinators
      -- $jtl
    , (|||)
    , JumpToLayout(..)
+
+      -- * Types
+    , NewSelect
    ) where

 import Data.Maybe ( isJust, isNothing )
--- a/XMonad/Layout/LayoutHints.hs
+++ b/XMonad/Layout/LayoutHints.hs
@ -20,6 +20,7 @@ module XMonad.Layout.LayoutHints
    , layoutHintsWithPlacement
    , layoutHintsToCenter
    , LayoutHints
+    , LayoutHintsToCenter
    , hintsEventHook
    )  where

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

 import XMonad
--- a/XMonad/Layout/LimitWindows.hs
+++ b/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
--- a/XMonad/Layout/MagicFocus.hs
+++ b/XMonad/Layout/MagicFocus.hs
@ -20,7 +20,8 @@ module XMonad.Layout.MagicFocus
     promoteWarp,
     promoteWarp',
     followOnlyIf,
-     disableFollowOnWS
+     disableFollowOnWS,
+     MagicFocus,
    ) where

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

 import XMonad
--- a/XMonad/Layout/Master.hs
+++ b/XMonad/Layout/Master.hs
@ -18,7 +18,8 @@ module XMonad.Layout.Master (
    -- $usage

    mastered,
-    multimastered
+    multimastered,
+    AddMaster,
 ) where

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

 import XMonad
--- a/XMonad/Layout/Minimize.hs
+++ b/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
--- a/XMonad/Layout/Mosaic.hs
+++ b/XMonad/Layout/Mosaic.hs
@ -21,6 +21,8 @@ module XMonad.Layout.Mosaic (
    ,mosaic
    ,changeMaster
    ,changeFocused
+
+    ,Mosaic
    )
    where

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

 import XMonad
--- a/XMonad/Layout/MouseResizableTile.hs
+++ b/XMonad/Layout/MouseResizableTile.hs
@ -30,6 +30,7 @@ module XMonad.Layout.MouseResizableTile (
                                    isMirrored,
                                    draggerType,
                                    DraggerType (..),
+                                    MouseResizableTile,
                                   ) where

 import XMonad hiding (tile, splitVertically, splitHorizontallyBy)
--- a/XMonad/Layout/MultiColumns.hs
+++ b/XMonad/Layout/MultiColumns.hs
@ -18,7 +18,8 @@ module XMonad.Layout.MultiColumns (
                              -- * Usage
                              -- $usage

-                              multiCol
+                              multiCol,
+                              MultiCol,
                             ) where

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

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

 import XMonad
--- a/XMonad/Layout/NoFrillsDecoration.hs
+++ b/XMonad/Layout/NoFrillsDecoration.hs
@ -22,6 +22,7 @@ module XMonad.Layout.NoFrillsDecoration
      noFrillsDeco

    , module XMonad.Layout.SimpleDecoration
+    , NoFrillsDecoration
    ) where

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

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

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

 import XMonad
--- a/XMonad/Layout/Spacing.hs
+++ b/XMonad/Layout/Spacing.hs
@ -17,7 +17,7 @@ module XMonad.Layout.Spacing (
                               -- * Usage
                               -- $usage

-                               spacing
+                               spacing, Spacing,

                             ) where

--- a/XMonad/Layout/Spiral.hs
+++ b/XMonad/Layout/Spiral.hs
@ -21,6 +21,8 @@ module XMonad.Layout.Spiral (
                            , spiralWithDir
                            , Rotation (..)
                            , Direction (..)
+
+                            , SpiralWithDir
                            ) where

 import Data.Ratio
--- a/XMonad/Layout/SubLayouts.hs
+++ b/XMonad/Layout/SubLayouts.hs
@ -28,6 +28,8 @@ module XMonad.Layout.SubLayouts (

    defaultSublMap,

+    Sublayout,
+
    -- * Screenshots
    -- $screenshots

--- a/XMonad/Layout/Tabbed.hs
+++ b/XMonad/Layout/Tabbed.hs
@ -26,6 +26,7 @@ module XMonad.Layout.Tabbed
    , TabbedDecoration (..)
    , shrinkText, CustomShrink(CustomShrink)
    , Shrinker(..)
+    , TabbarShown, TabbarLocation
    ) where

 import Data.List
--- a/XMonad/Layout/ToggleLayouts.hs
+++ b/XMonad/Layout/ToggleLayouts.hs
@ -16,7 +16,7 @@
 module XMonad.Layout.ToggleLayouts (
    -- * Usage
    -- $usage
-    toggleLayouts, ToggleLayout(..)
+    toggleLayouts, ToggleLayout(..), ToggleLayouts
    ) where

 import XMonad
--- a/XMonad/Layout/WindowNavigation.hs
+++ b/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, (\\) )
--- a/XMonad/Layout/WindowSwitcherDecoration.hs
+++ b/XMonad/Layout/WindowSwitcherDecoration.hs
@ -20,7 +20,8 @@ module XMonad.Layout.WindowSwitcherDecoration
      -- $usage
      windowSwitcherDecoration,
      windowSwitcherDecorationWithButtons,
-      windowSwitcherDecorationWithImageButtons
+      windowSwitcherDecorationWithImageButtons,
+      WindowSwitcherDecoration, ImageWindowSwitcherDecoration,
    ) where

 import XMonad
--- a/XMonad/Layout/WorkspaceDir.hs
+++ b/XMonad/Layout/WorkspaceDir.hs
@ -25,7 +25,8 @@ module XMonad.Layout.WorkspaceDir (
                                   -- * Usage
                                   -- $usage
                                   workspaceDir,
-                                   changeDir
+                                   changeDir,
+                                   WorkspaceDir,
                                  ) where

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

 import Prelude hiding (catch)
--- a/XMonad/Prompt/AppLauncher.hs
+++ b/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)
--- a/XMonad/Prompt/AppendFile.hs
+++ b/XMonad/Prompt/AppendFile.hs
@ -22,7 +22,8 @@ module XMonad.Prompt.AppendFile (
                                 -- * Usage
                                 -- $usage

-                                 appendFilePrompt
+                                 appendFilePrompt,
+                                 AppendFile,
                                ) where

 import XMonad.Core
--- a/XMonad/Prompt/DirExec.hs
+++ b/XMonad/Prompt/DirExec.hs
@ -21,6 +21,7 @@ module XMonad.Prompt.DirExec
      -- $usage
      dirExecPrompt
    , dirExecPromptNamed
+    , DirExec
    ) where

 import Prelude hiding (catch)
--- a/XMonad/Prompt/Directory.hs
+++ b/XMonad/Prompt/Directory.hs
@ -15,7 +15,8 @@
 module XMonad.Prompt.Directory (
                             -- * Usage
                             -- $usage
-                             directoryPrompt
+                             directoryPrompt,
+                             Dir,
                              ) where

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

 import XMonad.Core
--- a/XMonad/Prompt/Layout.hs
+++ b/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)
--- a/XMonad/Prompt/Man.hs
+++ b/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
--- a/XMonad/Prompt/RunOrRaise.hs
+++ b/XMonad/Prompt/RunOrRaise.hs
@ -16,7 +16,8 @@
 module XMonad.Prompt.RunOrRaise
    ( -- * Usage
      -- $usage
-      runOrRaisePrompt
+      runOrRaisePrompt,
+      RunOrRaisePrompt,
    ) where

 import XMonad hiding (config)
--- a/XMonad/Prompt/Ssh.hs
+++ b/XMonad/Prompt/Ssh.hs
@ -15,7 +15,8 @@
 module XMonad.Prompt.Ssh
    ( -- * Usage
      -- $usage
-      sshPrompt
+      sshPrompt,
+      Ssh,
    ) where

 import Prelude hiding (catch)
--- a/XMonad/Prompt/Theme.hs
+++ b/XMonad/Prompt/Theme.hs
@ -15,6 +15,7 @@ module XMonad.Prompt.Theme
    ( -- * Usage
      -- $usage
      themePrompt,
+      ThemePrompt,
    ) where

 import Control.Arrow ( (&&&) )
--- a/XMonad/Prompt/Window.hs
+++ b/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
--- a/XMonad/Prompt/Workspace.hs
+++ b/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 )
--- a/XMonad/Prompt/XMonad.hs
+++ b/XMonad/Prompt/XMonad.hs
@ -16,7 +16,8 @@ module XMonad.Prompt.XMonad (
                             -- * Usage
                             -- $usage
                             xmonadPrompt,
-                             xmonadPromptC
+                             xmonadPromptC,
+                             XMonad,
                              ) where

 import XMonad
--- a/XMonad/Util/Dzen.hs
+++ b/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
--- a/XMonad/Util/PositionStore.hs
+++ b/XMonad/Util/PositionStore.hs
@ -22,7 +22,8 @@ module XMonad.Util.PositionStore (
        posStoreInsert,
        posStoreMove,
        posStoreQuery,
-        posStoreRemove
+        posStoreRemove,
+        PositionStore,
    ) where

 import XMonad