From 1b3327dc7cd7f87aa8dee335889fde734a8ac48b Mon Sep 17 00:00:00 2001 From: Adam Vogt Date: Sat, 23 Oct 2010 21:57:55 +0200 Subject: Export types to reduce haddock warnings. Ignore-this: 1cac9202784711ce0fc902d14543bab0 darcs-hash:20101023195755-1499c-57c41357d20cbf0d57522ce99bdbfff7b686ed52.gz --- XMonad/Prompt/AppLauncher.hs | 3 +++ XMonad/Prompt/AppendFile.hs | 3 ++- XMonad/Prompt/DirExec.hs | 1 + XMonad/Prompt/Directory.hs | 3 ++- XMonad/Prompt/Input.hs | 3 ++- XMonad/Prompt/Layout.hs | 6 +----- XMonad/Prompt/Man.hs | 2 ++ XMonad/Prompt/RunOrRaise.hs | 3 ++- XMonad/Prompt/Ssh.hs | 3 ++- XMonad/Prompt/Theme.hs | 1 + XMonad/Prompt/Window.hs | 3 ++- XMonad/Prompt/Workspace.hs | 5 ++++- XMonad/Prompt/XMonad.hs | 3 ++- 13 files changed, 26 insertions(+), 13 deletions(-) (limited to 'XMonad/Prompt') 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 -- cgit v1.2.3