Matthew Pickering pushed to branch wip/splice-imports-2025 at Glasgow Haskell Compiler / GHC
Commits:
-
1e1422c8
by Matthew Pickering at 2025-04-16T21:35:09+01:00
1 changed file:
Changes:
| ... | ... | @@ -1080,10 +1080,13 @@ instance Enum a => Binary (EnumBinary a) where |
| 1080 | 1080 | deriving via (EnumBinary ImportLevel) instance Binary ImportLevel
|
| 1081 | 1081 | |
| 1082 | 1082 | instance Binary IsBootInterface where
|
| 1083 | - put_ bh IsBoot = put_ bh False
|
|
| 1084 | - put_ bh NotBoot = put_ bh True
|
|
| 1083 | + put_ bh ib = put_ bh (case ib of
|
|
| 1084 | + IsBoot -> True
|
|
| 1085 | + NotBoot -> False)
|
|
| 1085 | 1086 | get bh = do x <- get bh
|
| 1086 | - return $ if x then IsBoot else NotBoot
|
|
| 1087 | + return $ case x of
|
|
| 1088 | + True -> IsBoot
|
|
| 1089 | + False -> NotBoot
|
|
| 1087 | 1090 | |
| 1088 | 1091 | {-
|
| 1089 | 1092 | Finally - a reasonable portable Integer instance.
|
| ... | ... | @@ -2161,4 +2164,4 @@ instance Binary a => Binary (FingerprintWithValue a) where |
| 2161 | 2164 | |
| 2162 | 2165 | instance NFData a => NFData (FingerprintWithValue a) where
|
| 2163 | 2166 | rnf (FingerprintWithValue fp mflags)
|
| 2164 | - = rnf fp `seq` rnf mflags `seq` () |
|
| \ No newline at end of file | ||
| 2167 | + = rnf fp `seq` rnf mflags `seq` () |