mirror of
https://github.com/commercialhaskell/stackage.git
synced 2026-01-11 23:08:30 +01:00
13 lines
426 B
Haskell
13 lines
426 B
Haskell
module Stackage.Util where
|
|
|
|
import qualified Data.Map as Map
|
|
import qualified Data.Set as Set
|
|
import Distribution.Version (thisVersion)
|
|
import Stackage.Types
|
|
|
|
identsToRanges :: Set PackageIdentifier -> Map PackageName VersionRange
|
|
identsToRanges =
|
|
Map.unions . map go . Set.toList
|
|
where
|
|
go (PackageIdentifier package version) = Map.singleton package $ thisVersion version
|