XPrompt.hs (uniqSort): new function

Moved from ShellPrompt. There are at least three happy users
of this function -- ShellPrompt, SshPrompt, and ManPrompt.

darcs-hash:20071024142241-ae588-d6fa3260081982849a235da5b9632216dd954b5d.gz

1 files changed, 6 insertions, 0 deletions

diff --git a/XPrompt.hs b/XPrompt.hs
index 85e673d..f75ddd9 100644
--- a/XPrompt.hs
+++ b/XPrompt.hs
@@ -38,6 +38,7 @@ module XMonadContrib.XPrompt (
                              , breakAtSpace
                              , newIndex
                              , newCommand
+                             , uniqSort
                              ) where
 
 import Graphics.X11.Xlib
@@ -54,6 +55,7 @@ import Data.Bits
 import Data.Char
 import Data.Maybe
 import Data.List
+import Data.Set (fromList, toList)
 import System.Environment (getEnv)
 import System.IO
 import System.Posix.Files
@@ -671,3 +673,7 @@ breakAtSpace s
     | otherwise = (s1, s2)
       where (s1, s2 ) = break isSpace s
             (s1',s2') = breakAtSpace $ tail s2
+
+-- | Sort a list and remove duplicates.
+uniqSort :: Ord a => [a] -> [a]
+uniqSort = toList . fromList