SshPrompt.hs: use `uniqSort' from XPrompt.hs

Remove excessive import lists.

SshPrompt.hs

@@ -18,17 +18,17 @@ module XMonadContrib.SshPrompt (
                              sshPrompt
                               ) where
 
-import System.Environment (getEnv)
-import Control.Monad(Monad (return), Functor(..), liftM2, mapM)
-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.Run (runInTerm)
-import XMonadContrib.XPrompt (XPrompt(..), XPConfig, mkXPrompt,
-			     mkComplFunFromList)
+import XMonad
+import XMonadContrib.Run
+import XMonadContrib.XPrompt
+
+import System.Directory
+import System.Environment
+
+import Control.Monad
+import Data.List
+import Data.Maybe
+
 -- $usage
 -- 1. In Config.hs add:
 --
@@ -58,7 +58,7 @@ ssh :: String -> X ()
 ssh s = runInTerm ("ssh " ++ s)
 
 sshComplList :: IO [String]
-sshComplList =  (nub . sort) `fmap` liftM2 (++) sshComplListLocal sshComplListGlobal 
+sshComplList = uniqSort `fmap` liftM2 (++) sshComplListLocal sshComplListGlobal
 
 sshComplListLocal :: IO [String]
 sshComplListLocal = do