[commit: ghc] wip/D3050: Fix binary instance for SrcStrictness (43b1ae1)

[git at git.haskell.org]

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

On branch  : wip/D3050
Link       : http://ghc.haskell.org/trac/ghc/changeset/43b1ae1d704ff80c8b27742178f6cecde39a3d68/ghc

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

commit 43b1ae1d704ff80c8b27742178f6cecde39a3d68
Author: alexbiehl <alex.biehl at gmail.com>
Date:   Tue Jan 31 10:54:50 2017 +0100

    Fix binary instance for SrcStrictness
    
    Summary: Found while revisiting the binary serialization for interface files.
    
    Test Plan: Building and validating currently
    
    Reviewers: austin, bgamari
    
    Subscribers: thomie
    
    Differential Revision: https://phabricator.haskell.org/D3050


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

43b1ae1d704ff80c8b27742178f6cecde39a3d68
 compiler/basicTypes/DataCon.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/basicTypes/DataCon.hs b/compiler/basicTypes/DataCon.hs
index f4cdb21..0364c8a 100644
--- a/compiler/basicTypes/DataCon.hs
+++ b/compiler/basicTypes/DataCon.hs
@@ -696,7 +696,7 @@ instance Binary SrcStrictness where
       do h <- getByte bh
          case h of
            0 -> return SrcLazy
-           1 -> return SrcLazy
+           1 -> return SrcStrict
            _ -> return NoSrcStrict
 
 instance Binary SrcUnpackedness where