diff options
author | Adam Vogt <vogt.adam@gmail.com> | 2010-10-23 21:57:55 +0200 |
---|---|---|
committer | Adam Vogt <vogt.adam@gmail.com> | 2010-10-23 21:57:55 +0200 |
commit | 1b3327dc7cd7f87aa8dee335889fde734a8ac48b (patch) | |
tree | 3bb4469e2a02c6c91d3d94c4702ec6c6d5e24b79 /XMonad/Actions/WorkspaceNames.hs | |
parent | 5bf2f254461743db248125f09144100d9279da4a (diff) | |
download | XMonadContrib-1b3327dc7cd7f87aa8dee335889fde734a8ac48b.tar.gz XMonadContrib-1b3327dc7cd7f87aa8dee335889fde734a8ac48b.tar.xz XMonadContrib-1b3327dc7cd7f87aa8dee335889fde734a8ac48b.zip |
Export types to reduce haddock warnings.
Ignore-this: 1cac9202784711ce0fc902d14543bab0
darcs-hash:20101023195755-1499c-57c41357d20cbf0d57522ce99bdbfff7b686ed52.gz
Diffstat (limited to 'XMonad/Actions/WorkspaceNames.hs')
-rw-r--r-- | XMonad/Actions/WorkspaceNames.hs | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/XMonad/Actions/WorkspaceNames.hs b/XMonad/Actions/WorkspaceNames.hs index c2dadd5..30d3d01 100644 --- 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 |