[commit: ghc] wip/ttypeable: Message: Fix it (2fa2dae)

[git at git.haskell.org]

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

On branch  : wip/ttypeable
Link       : http://ghc.haskell.org/trac/ghc/changeset/2fa2dae3db3a86f41a20c62bcba64323d00408a6/ghc

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

commit 2fa2dae3db3a86f41a20c62bcba64323d00408a6
Author: Ben Gamari <ben at smart-cactus.org>
Date:   Tue Jan 3 00:35:58 2017 -0500

    Message: Fix it


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

2fa2dae3db3a86f41a20c62bcba64323d00408a6
 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 b22833f..85dd75c 100644
--- a/libraries/ghci/GHCi/Message.hs
+++ b/libraries/ghci/GHCi/Message.hs
@@ -377,7 +377,7 @@ fromSerializableException (EOtherException str) = toException (ErrorCall str)
 -- as the minimum
 instance Binary ExitCode where
   put ExitSuccess      = putWord8 0
-  put (ExitFailure ec) = putWord8 1 `mappend` put ec
+  put (ExitFailure ec) = putWord8 1 >> put ec
   get = do
     w <- getWord8
     case w of