[commit: ghc] wip/angerman/llvmng: more logging. (2cc2244)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : wip/angerman/llvmng
Link       : http://ghc.haskell.org/trac/ghc/changeset/2cc2244258766ef1bc73455dab5fd3744a0ac9c0/ghc

>---------------------------------------------------------------

commit 2cc2244258766ef1bc73455dab5fd3744a0ac9c0
Author: Moritz Angermann <moritz.angermann at gmail.com>
Date:   Mon Nov 27 11:42:58 2017 +0800

    more logging.


>---------------------------------------------------------------

2cc2244258766ef1bc73455dab5fd3744a0ac9c0
 libraries/ghci/GHCi/Message.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/libraries/ghci/GHCi/Message.hs b/libraries/ghci/GHCi/Message.hs
index de91c5b..282d535 100644
--- a/libraries/ghci/GHCi/Message.hs
+++ b/libraries/ghci/GHCi/Message.hs
@@ -538,7 +538,7 @@ getBin h get leftover = go leftover (runGetIncremental get)
  where
    go Nothing (Done leftover _ msg) =
      return (Just (msg, if B.null leftover then Nothing else Just leftover))
-   go _ Done{} = throwIO (ErrorCall "getBin: Done with leftovers")
+   go (Just leftover) Done{} = throwIO (ErrorCall $ "getBin: Done with leftovers: " ++ show leftover)
    go (Just leftover) (Partial fun) = do
      go Nothing (fun (Just leftover))
    go Nothing (Partial fun) = do