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

[git at git.haskell.org]

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

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

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

commit cd24be6482929d2deddbb22d4c2979e40a739428
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


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

cd24be6482929d2deddbb22d4c2979e40a739428
 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 620aea6..952ea8d 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