[commit: ghc] master: Fix binary instance for SrcStrictness (c71f0c4)

[git at git.haskell.org]

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

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/c71f0c4ef931885a6c35d64e803338ba3781ff23/ghc

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

commit c71f0c4ef931885a6c35d64e803338ba3781ff23
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, mpickering
    
    Reviewed By: mpickering
    
    Subscribers: mpickering, thomie
    
    Differential Revision: https://phabricator.haskell.org/D3050


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

c71f0c4ef931885a6c35d64e803338ba3781ff23
 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