Utils: Add ordNub
[ganeti-github.git] / src / Ganeti / Utils.hs
index e3d865f..6e342d1 100644 (file)
@@ -90,6 +90,7 @@ module Ganeti.Utils
   , safeRenameFile
   , FilePermissions(..)
   , ensurePermissions
+  , ordNub
   ) where
 
 import Control.Concurrent
@@ -751,3 +752,12 @@ safeRenameFile perms from to = do
         _ <- ensurePermissions dir perms
         renameFile from to
       return $ either (Bad . show) Ok (result :: Either IOError ())
+
+-- | Removes duplicates, preserving order.
+ordNub :: (Ord a) => [a] -> [a]
+ordNub =
+  let go _ [] = []
+      go s (x:xs) = if x `S.member` s
+        then go s xs
+        else x : go (S.insert x s) xs
+  in go S.empty