From 5009f058cc0cc6ae9ea6728e14fec66646d3e412 Mon Sep 17 00:00:00 2001
From: David Roundy <droundy@darcs.net>
Date: Wed, 6 Feb 2008 01:40:57 +0100
Subject: use Util.WorkspaceCompare in Prompt.Workspace.

darcs-hash:20080206004057-72aca-6fbc6e0d97ff9a251ddc8b564621800fab52d0b7.gz
---
 XMonad/Prompt/Workspace.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'XMonad/Prompt/Workspace.hs')

diff --git a/XMonad/Prompt/Workspace.hs b/XMonad/Prompt/Workspace.hs
index 12ece91..165eba9 100644
--- a/XMonad/Prompt/Workspace.hs
+++ b/XMonad/Prompt/Workspace.hs
@@ -18,10 +18,10 @@ module XMonad.Prompt.Workspace (
                              workspacePrompt
                               ) where
 
-import Data.List ( sort )
 import XMonad hiding ( workspaces )
 import XMonad.Prompt
 import XMonad.StackSet ( workspaces, tag )
+import XMonad.Util.WorkspaceCompare ( getSortByIndex )
 
 -- $usage
 -- You can use this module with the following in your @~\/.xmonad\/xmonad.hs@:
@@ -41,7 +41,8 @@ instance XPrompt Wor where
 
 workspacePrompt :: XPConfig -> (String -> X ()) -> X ()
 workspacePrompt c job = do ws <- gets (workspaces . windowset)
-                           let ts = sort $ map tag ws
+                           sort <- getSortByIndex
+                           let ts = map tag $ sort ws
                            mkXPrompt (Wor "") c (mkCompl ts) job
 
 mkCompl :: [String] -> String -> IO [String]
-- 
cgit v1.2.3