twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-07-31 04:01:51 -07:00
Code Issues Packages Projects Releases Wiki Activity

SshPrompt.hs: while I'm here, replace nub with the faster Set trick

Browse Source
This commit is contained in:
gwern0
2007-10-19 18:15:14 +00:00
parent b70448353f
commit 0fe340d50c
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
SshPrompt.hs
View File

@@ -21,9 +21,10 @@ module XMonadContrib.SshPrompt (
import System.Environment (getEnv)
import XMonadContrib.ShellPrompt (runInXTerm)
import Control.Monad(Monad (return), Functor(..), liftM2, mapM)
import Data.List ((++), concat, filter, map, words, lines, takeWhile, take, nub,
import Data.List ((++), concat, filter, map, words, lines, takeWhile, take,
sort)
import Data.Maybe (Maybe(..), catMaybes)
import Data.Set (toList, fromList)
import System.Directory (doesFileExist)
import XMonad (X, io)
import XMonadContrib.XPrompt (XPrompt(..), XPConfig, mkXPrompt,
@@ -57,7 +58,7 @@ ssh :: String -> X ()
ssh s = runInXTerm ("ssh " ++ s)
sshComplList :: IO [String]
sshComplList = (nub . sort) `fmap` liftM2 (++) sshComplListLocal sshComplListGlobal
sshComplList = (sort . toList . fromList) `fmap` liftM2 (++) sshComplListLocal sshComplListGlobal
sshComplListLocal :: IO [String]
sshComplListLocal = do