Fix binary instance for SrcStrictness
authoralexbiehl <alex.biehl@gmail.com>
Tue, 31 Jan 2017 09:54:50 +0000 (10:54 +0100)
committeralexbiehl <alex.biehl@gmail.com>
Tue, 31 Jan 2017 11:25:24 +0000 (12:25 +0100)
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

compiler/basicTypes/DataCon.hs

index 620aea6..952ea8d 100644 (file)
@@ -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