Implement nub function in Haskell

nub.hs

import qualified Data.Set as S

nub = go S.empty
  where go _ [] = []
        go s (x:xs) | S.member x s = go s xs
                    | otherwise    = x : go (S.insert x s) xs