hackage-db 1.3 → 1.4

raw patch · 2 files changed

+6/−5 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• hackage-db.cabal +2/−2
• src/Distribution/Hackage/DB.hs +4/−3

@@ -1,5 +1,5 @@ Name:                   hackage-db-Version:                1.3+Version:                1.4 Copyright:              Peter Simons License:                BSD3 License-File:           LICENSE@@ -10,7 +10,7 @@ Synopsis:               provide access to the Hackage database via Data.Map Cabal-Version:          >= 1.6 Build-Type:             Simple-Tested-With:            GHC == 6.10.4, GHC == 6.12.3, GHC == 7.0.4, GHC == 7.4.1+Tested-With:            GHC >= 6.10.4 && <= 7.6.1 Description:    This module provides simple access to the Hackage database by means    of @Data.Map@. Suppose you wanted to implement a utility that queries

@@ -63,9 +63,10 @@   where     addEntry :: Tar.Entry -> Hackage -> Hackage     addEntry e db = case splitDirectories (Tar.entryPath e) of+                        [".",".","@LongLink"] -> db                         path@[name,vers,_] -> case Tar.entryContent e of                                                 Tar.NormalFile buf _ -> add name vers buf db-                                                _                    -> error ("unexpected content of " ++ show path)+                                                _                    -> error ("Hackage.DB.parseHackage: unexpected content type for " ++ show path)                         _                  -> db      add :: String -> String -> ByteString -> Hackage -> Hackage@@ -74,7 +75,7 @@     pPackage :: String -> ByteString -> GenericPackageDescription     pPackage name buf = case parsePackageDescription (BS.unpack buf) of                           ParseOk _ a     -> a-                          ParseFailed err -> error ("cannot parse cabal file " ++ show name ++ ": " ++ show err)+                          ParseFailed err -> error ("Hackage.DB.parseHackage: cannot parse cabal file " ++ show name ++ ": " ++ show err)      pVersion :: String -> Version-    pVersion str = fromMaybe (error $ "cannot parse version " ++ show str) (simpleParse str)+    pVersion str = fromMaybe (error $ "Hackage.DB.parseHackage: cannot parse version " ++ show str) (simpleParse str)