Remove unused imports

Author: garyb

src/Data/Set.purs

@@ -3,36 +3,33 @@
 -- |
 -- | Qualified import is encouraged, so as to avoid name clashes with other modules.
 
-module Data.Set 
-  ( Set(),
-    empty,
-    isEmpty,
-    singleton,
-    checkValid,
-    insert,
-    member,
-    delete,
-    toList,
-    fromList,
-    size,
-    union,
-    unions,
-    difference
+module Data.Set
+  ( Set()
+  , empty
+  , isEmpty
+  , singleton
+  , checkValid
+  , insert
+  , member
+  , delete
+  , toList
+  , fromList
+  , size
+  , union
+  , unions
+  , difference
   ) where
-  
+
 import Prelude
-  
-import qualified Data.Map as M
 
-import Data.Maybe 
-import Data.Monoid
-import Data.Tuple
 import Data.Foldable (Foldable, foldMap, foldl, foldr)
-
 import Data.List (List(..))
-  
+import Data.Monoid (Monoid)
+import Data.Tuple (fst)
+import qualified Data.Map as M
+
 -- | `Set a` represents a set of values of type `a`
-data Set a = Set (M.Map a Unit) 
+data Set a = Set (M.Map a Unit)
 
 instance eqSet :: (Eq a) => Eq (Set a) where
   eq (Set m1) (Set m2) = m1 == m2
@@ -67,7 +64,7 @@ singleton :: forall a. a -> Set a
 singleton a = Set (M.singleton a unit)
 
 -- | Check whether the underlying tree satisfies the 2-3 invariant
--- | 
+-- |
 -- | This function is provided for internal use.
 checkValid :: forall a. Set a -> Boolean
 checkValid (Set m) = M.checkValid m
@@ -79,11 +76,11 @@ member a (Set m) = a `M.member` m
 -- | Insert a value into a set
 insert :: forall a. (Ord a) => a -> Set a -> Set a
 insert a (Set m) = Set (M.insert a unit m)
-  
+
 -- | Delete a value from a set
 delete :: forall a. (Ord a) => a -> Set a -> Set a
 delete a (Set m) = Set (a `M.delete` m)
-  
+
 -- | Convert a set to a list
 toList :: forall a. Set a -> List a
 toList (Set m) = map fst (M.toList m)
@@ -97,7 +94,7 @@ size :: forall a. Set a -> Int
 size (Set m) = M.size m
 
 -- | Form the union of two sets
--- | 
+-- |
 -- | Running time: `O(n * log(m))`
 union :: forall a. (Ord a) => Set a -> Set a -> Set a
 union (Set m1) (Set m2) = Set (m1 `M.union` m2)