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/Actions/WorkspaceNames.hs | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) (limited to 'XMonad/Actions/WorkspaceNames.hs') 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 -- cgit v1.2.3