diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2017-07-21 00:11:14 -0400 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2017-07-21 00:11:14 -0400 |
| commit | 8ea1835091a42328a9ab152aa2ab3d759f90a06c (patch) | |
| tree | 76a3bf786759afcb00b22f8b12817309675d8201 | |
| parent | 63ccd40224a727065a4497d3d96f0ab783236c1a (diff) | |
| download | haskell-8ea1835091a42328a9ab152aa2ab3d759f90a06c.tar.gz | |
Debugging ghc-pkg
| -rw-r--r-- | libraries/ghc-boot/GHC/PackageDb.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libraries/ghc-boot/GHC/PackageDb.hs b/libraries/ghc-boot/GHC/PackageDb.hs index bf83d25baa..f1ccf16ba9 100644 --- a/libraries/ghc-boot/GHC/PackageDb.hs +++ b/libraries/ghc-boot/GHC/PackageDb.hs @@ -352,7 +352,7 @@ getHeader :: Get (Word32, Word32) getHeader = do magic <- getByteString (BS.length headerMagic) when (magic /= headerMagic) $ - fail "not a ghc-pkg db file, wrong file magic number" + fail $ "not a ghc-pkg db file, wrong file magic number (saw "++show magic++", expected "++show headerMagic++")" majorVersion <- get :: Get Word32 -- The major version is for incompatible changes |