diff options
Diffstat (limited to 'XMonad/Prompt/Workspace.hs')
-rw-r--r-- | XMonad/Prompt/Workspace.hs | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/XMonad/Prompt/Workspace.hs b/XMonad/Prompt/Workspace.hs index 165eba9..c1820d4 100644 --- a/XMonad/Prompt/Workspace.hs +++ b/XMonad/Prompt/Workspace.hs @@ -43,7 +43,4 @@ workspacePrompt :: XPConfig -> (String -> X ()) -> X () workspacePrompt c job = do ws <- gets (workspaces . windowset) sort <- getSortByIndex let ts = map tag $ sort ws - mkXPrompt (Wor "") c (mkCompl ts) job - -mkCompl :: [String] -> String -> IO [String] -mkCompl l s = return $ filter (\x -> take (length s) x == s) l + mkXPrompt (Wor "") c (mkComplFunFromList' ts) job |