diff options
| author | Josh Meredith <joshmeredith2008@gmail.com> | 2020-09-14 12:53:21 +1000 |
|---|---|---|
| committer | Josh Meredith <joshmeredith2008@gmail.com> | 2020-09-14 12:53:21 +1000 |
| commit | a04562f88c594817ad98cdf9aa38e24d6c0ed0ea (patch) | |
| tree | f5eacb6848f77f4c685571cfc420e5e363f3c521 /compiler/main/Annotations.hs | |
| parent | 29204b1c4f52ea34d84da33593052ee839293bf2 (diff) | |
| download | haskell-wip/coreField8102.tar.gz | |
Patch commit for haskell.nix 8.10.2 core interface fieldwip/coreField8102
Diffstat (limited to 'compiler/main/Annotations.hs')
| -rw-r--r-- | compiler/main/Annotations.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/compiler/main/Annotations.hs b/compiler/main/Annotations.hs index 82d80aae43..4088d93565 100644 --- a/compiler/main/Annotations.hs +++ b/compiler/main/Annotations.hs @@ -41,6 +41,10 @@ data Annotation = Annotation { ann_value :: AnnPayload } +instance Binary Annotation where + put_ bh (Annotation f1 f2) = put_ bh f1 >> put_ bh f2 + get bh = Annotation <$> get bh <*> get bh + type AnnPayload = Serialized -- ^ The "payload" of an annotation -- allows recovery of its value at a given type, -- and can be persisted to an interface file |