@@ -1,4 +1,4 @@
1−module Distribution.Nixpkgs.Haskell.Hackage ( readHashedHackage, module Distribution.Hackage.DB ) where
1+module Distribution.Nixpkgs.Haskell.Hackage ( readHashedHackage, readHashedHackage', module Distribution.Hackage.DB ) where
22
33import Data.ByteString.Lazy ( ByteString )
44import Data.Digest.Pure.SHA ( sha256, showDigest )
@@ -13,7 +13,10 @@ import qualified Distribution.Hackage.DB.Unparsed as Unparsed
1313-- original tarball.
1414
1515readHashedHackage :: IO Hackage
16−readHashedHackage = fmap parseUnparsedHackage Unparsed.readHackage
16+readHashedHackage = hackagePath >>= readHashedHackage'
17+
18+readHashedHackage' :: FilePath -> IO Hackage
19+readHashedHackage' = fmap parseUnparsedHackage . Unparsed.readHackage'
1720 where
1821 parseUnparsedHackage :: Unparsed.Hackage -> Hackage
1922 parseUnparsedHackage = mapWithKey (mapWithKey . parsePackage)