[NameMonad.hs cleanup - haddock and -Wall.
Einar Karttunen <ekarttun@cs.helsinki.fi>**20050507150640] hunk ./NameMonad.hs 28
+-- | Generating names.
+
hunk ./NameMonad.hs 31
-    -- | Generate a list of canidate names given a seed
+    -- | Generate a list of candidate names given a seed
hunk ./NameMonad.hs 41
+-- | Generate an infinite list of names not present in the given set.
hunk ./NameMonad.hs 53
+-- | Name monad transformer.
hunk ./NameMonad.hs 57
+-- | Run the name monad transformer.
+runNameMT :: (Monad m) => NameMT a1 m a -> m a
hunk ./NameMonad.hs 62
+fromNameMT :: NameMT n m a -> StateT (Set.Set n, Set.Set n) m a
hunk ./NameMonad.hs 64
+
hunk ./NameMonad.hs 73
-        let f (v:vs) 
-                | v `Set.member` used = f vs
-                | otherwise = v
+        let f (x:xs)
+                | x `Set.member` used = f xs
+                | otherwise = x