Use galois repo (is it more official?)
[darcs-mirror-hpvt.git] / Hackage.hs
1 module Hackage where 
2
3 import Types
4 import Utils
5 import Index
6
7 import Distribution.PackageDescription
8 import qualified Data.ByteString.Lazy as LBS
9
10 readFile :: FilePath -> IO (DistroInfo)
11 readFile file = do
12         indexFile <- LBS.readFile file
13         let index = readIndex indexFile
14             hackageVersions = map extract index
15         return $ fromListMax hackageVersions
16            
17 extract (p, v, i) = (fromHackage p, Version v url)
18   where url = "http://hackage.haskell.org/package/" ++ p