diff options
author | alexbiehl <alex.biehl@gmail.com> | 2017-01-31 10:54:50 +0100 |
---|---|---|
committer | alexbiehl <alex.biehl@gmail.com> | 2017-01-31 11:34:19 +0100 |
commit | cd24be6482929d2deddbb22d4c2979e40a739428 (patch) | |
tree | cb93b591b15b6ca0cbebec38951b3c1b02fc294f | |
parent | 32729d3586d7ecdeb8561b6d0b2a688db709560c (diff) | |
download | haskell-cd24be6482929d2deddbb22d4c2979e40a739428.tar.gz |
Fix binary instance for SrcStrictnesswip/D3050
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
-rw-r--r-- | compiler/basicTypes/DataCon.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/basicTypes/DataCon.hs b/compiler/basicTypes/DataCon.hs index 620aea6f95..952ea8d714 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 |