twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-09-01 11:53:48 -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 System.Environment (getEnv)
import XMonadContrib.ShellPrompt (runInXTerm) import XMonadContrib.ShellPrompt (runInXTerm)
import Control.Monad(Monad (return), Functor(..), liftM2, mapM) 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) sort)
import Data.Maybe (Maybe(..), catMaybes) import Data.Maybe (Maybe(..), catMaybes)
import Data.Set (toList, fromList)
import System.Directory (doesFileExist) import System.Directory (doesFileExist)
import XMonad (X, io) import XMonad (X, io)
import XMonadContrib.XPrompt (XPrompt(..), XPConfig, mkXPrompt, import XMonadContrib.XPrompt (XPrompt(..), XPConfig, mkXPrompt,
@@ -57,7 +58,7 @@ ssh :: String -> X ()
ssh s = runInXTerm ("ssh " ++ s) ssh s = runInXTerm ("ssh " ++ s)
sshComplList :: IO [String] sshComplList :: IO [String]
sshComplList = (nub . sort) `fmap` liftM2 (++) sshComplListLocal sshComplListGlobal sshComplList = (sort . toList . fromList) `fmap` liftM2 (++) sshComplListLocal sshComplListGlobal
sshComplListLocal :: IO [String] sshComplListLocal :: IO [String]
sshComplListLocal = do sshComplListLocal = do