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/Layout.hs | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) (limited to 'XMonad/Prompt/Layout.hs') 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) -- cgit v1.2.3