@@ -1,7 +1,11 @@
11{-# LANGUAGE OverloadedStrings #-}
22{-# LANGUAGE TemplateHaskell #-}
33
4−module HackageGit where
4+module HackageGit
5+ ( Hackage, readHackage, readPackage, readPackageMeta
6+ , SHA256Hash, hashes
7+ )
8+ where
59
610import Control.Lens hiding ( (<.>) )
711import Control.Monad
@@ -54,8 +58,6 @@ readPackage dirPrefix (PackageIdentifier name version) = do
5458
5559declareLenses [d|
5660 data Meta = Meta { hashes :: Map String String
57− , locations :: [String]
58− , pkgsize :: Int
5961 }
6062 deriving (Show)
6163 |]
@@ -63,8 +65,6 @@ declareLenses [d|
6365instance FromJSON Meta where
6466 parseJSON (Object v) = Meta
6567 <$> v .: "package-hashes"
66− <*> v .: "package-locations"
67− <*> v .: "package-size"
6868 parseJSON o = fail ("invalid Cabal metadata: " ++ show o)
6969
7070readPackageMeta :: FilePath -> PackageIdentifier -> IO Meta