リストから重複を削除

--リストから重複削除
uniqList :: [Integer] -> [Integer]
uniqList []     = []
uniqList (x:xs) = (if x `elem` xs then [] else [x]) ++ (uniqList xs)
--多相型に
uniqList :: Eq a => [a] -> [a]
uniqList []     = []
uniqList (x:xs) = (if x `elem` xs then [] else [x]) ++ (uniqList xs)

[2009-07-15追記]
nub関数がありました。

import List
main = do print $ nub [1,2,3,4,2,3,3,4,4,44] -- [1,2,3,4,44]
          print $ nub "hogehogehoge"         -- "hoge"