From d68d5f8accb90e598daf5216b968513786ad1e6a Mon Sep 17 00:00:00 2001
From: "Valery V. Vorotyntsev" <valery.vv@gmail.com>
Date: Wed, 24 Oct 2007 16:22:41 +0200
Subject: 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
---
 XPrompt.hs | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'XPrompt.hs')

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
-- 
cgit v1.2.3