diff options
| author | Duncan Coutts <duncan@well-typed.com> | 2014-08-28 05:24:04 +0100 |
|---|---|---|
| committer | Edward Z. Yang <ezyang@cs.stanford.edu> | 2014-08-29 15:03:33 +0100 |
| commit | 616dd87f60b99d8843058366304e2b9f2475eb57 (patch) | |
| tree | 77d59161db5e575b6b01a40743768ed7c25de5dc /utils | |
| parent | da7289882610ccae3f16c74be7440d19c29ecd20 (diff) | |
| download | haskell-616dd87f60b99d8843058366304e2b9f2475eb57.tar.gz | |
Fix a few minor issues spotted in code review
Diffstat (limited to 'utils')
| -rw-r--r-- | utils/ghc-pkg/Main.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/utils/ghc-pkg/Main.hs b/utils/ghc-pkg/Main.hs index fdb255abfe..ac958da73e 100644 --- a/utils/ghc-pkg/Main.hs +++ b/utils/ghc-pkg/Main.hs @@ -57,7 +57,6 @@ import Control.Concurrent import qualified Data.ByteString.Char8 as BS import Data.Binary as Bin ---import qualified Data.Binary.Get as Bin #if defined(mingw32_HOST_OS) -- mingw32 needs these for getExecDir @@ -2141,4 +2140,4 @@ instance Binary PackageKey where case n of 0 -> do a <- get; b <- get; c <- get; return (PackageKey a b c) 1 -> do a <- get; return (OldPackageKey a) - _ -> error ("Binary PackageKey: bad branch " ++ show n) + _ -> fail ("Binary PackageKey: bad branch " ++ show n) |