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/Prompt/Layout.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 '')
| -rw-r--r-- | XMonad/Prompt/Layout.hs | 6 |
1 files changed, 1 insertions, 5 deletions
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) |