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/DynamicWorkspaces.hs | 9 ++------- 1 file changed, 2 insertions(+), 7 deletions(-) (limited to 'XMonad/Actions/DynamicWorkspaces.hs') diff --git a/XMonad/Actions/DynamicWorkspaces.hs b/XMonad/Actions/DynamicWorkspaces.hs index 4b8156b..893dbf7 100644 --- 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 -- cgit v1.2.3