diff options
| -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 |