Export types to reduce haddock warnings.

Ignore-this: 1cac9202784711ce0fc902d14543bab0

darcs-hash:20101023195755-1499c-57c41357d20cbf0d57522ce99bdbfff7b686ed52.gz

14 files changed, 28 insertions, 13 deletions

diff --git a/XMonad/Prompt.hs b/XMonad/Prompt.hs
index 1d2faba..d835b78 100644
--- 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)
diff --git a/XMonad/Prompt/AppLauncher.hs b/XMonad/Prompt/AppLauncher.hs
index 7af348b..167c798 100644
--- 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)
diff --git a/XMonad/Prompt/AppendFile.hs b/XMonad/Prompt/AppendFile.hs
index 945c8de..17d4763 100644
--- 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
diff --git a/XMonad/Prompt/DirExec.hs b/XMonad/Prompt/DirExec.hs
index 1600f93..ddcc8c5 100644
--- 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)
diff --git a/XMonad/Prompt/Directory.hs b/XMonad/Prompt/Directory.hs
index a2791bb..63599af 100644
--- 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
diff --git a/XMonad/Prompt/Input.hs b/XMonad/Prompt/Input.hs
index 124fe92..8342856 100644
--- 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
diff --git a/XMonad/Prompt/Layout.hs b/XMonad/Prompt/Layout.hs
index a824e73..d9c59e1 100644
--- 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)
diff --git a/XMonad/Prompt/Man.hs b/XMonad/Prompt/Man.hs
index aae6a33..c5bd8d5 100644
--- 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
diff --git a/XMonad/Prompt/RunOrRaise.hs b/XMonad/Prompt/RunOrRaise.hs
index 251e09c..8fb5c43 100644
--- 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)
diff --git a/XMonad/Prompt/Ssh.hs b/XMonad/Prompt/Ssh.hs
index 7d84069..c3a035d 100644
--- 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)
diff --git a/XMonad/Prompt/Theme.hs b/XMonad/Prompt/Theme.hs
index 653b16c..d34dd87 100644
--- 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 ( (&&&) )
diff --git a/XMonad/Prompt/Window.hs b/XMonad/Prompt/Window.hs
index a5b6aeb..a6aa53f 100644
--- 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
diff --git a/XMonad/Prompt/Workspace.hs b/XMonad/Prompt/Workspace.hs
index 1b49f06..749ca9d 100644
--- 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 )
diff --git a/XMonad/Prompt/XMonad.hs b/XMonad/Prompt/XMonad.hs
index 184017f..86f5369 100644
--- 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