Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Main: cleanup: import Data.Set only as qualified

Signed-off-by: Sergei Trofimovich <slyfox@gentoo.org>
  • Loading branch information...
commit 5d94d84e9587f088637b73ee036a477622d76d25 1 parent ffbc87c
@trofi trofi authored
Showing with 2 additions and 3 deletions.
  1. +2 −3 Main.hs
View
5 Main.hs
@@ -18,7 +18,6 @@ import Data.Either(partitionEithers)
import Data.List(foldl1', nub)
import Data.Version(showVersion)
import qualified Data.Set as Set
-import Data.Set(Set)
import qualified Paths_haskell_updater as Paths(version)
import System.Console.GetOpt
import System.Environment(getArgs, getProgName)
@@ -38,7 +37,7 @@ main = uncurry runAction =<< parseArgs
data Action = Help
| Version
- | Build { targets :: Set BuildTarget }
+ | Build { targets :: Set.Set BuildTarget }
-- If anything is added here after Build, MAKE SURE YOU
-- UPDATE combineActions or it won't always work!
deriving (Eq, Ord, Show, Read)
@@ -80,7 +79,7 @@ getPackages GhcUpgrade = oldGhcPkgs
getPackages DepCheck = brokenPkgs
getPackages AllInstalled = allInstalledPackages
-allGetPackages :: Set BuildTarget -> IO [Package]
+allGetPackages :: Set.Set BuildTarget -> IO [Package]
allGetPackages = liftM nub
. concatMapM getPackages
. Set.toList
Please sign in to comment.
Something went wrong with that request. Please try again.