diff options
author | Hugo <hpeters1024@gmail.com> | 2022-02-22 16:09:24 +0100 |
---|---|---|
committer | Hugo <hpeters1024@gmail.com> | 2022-02-22 16:09:24 +0100 |
commit | f47178e436877b048fa83f26ccd87894c4ad2432 (patch) | |
tree | dda23faf56095552bae6246d07b09788ee198aa1 | |
parent | 78fbc3a364e85dc5f31f865f397cd4000294444f (diff) | |
download | haskell-wip/annot-docs.tar.gz |
docs: fix error in annotation guide code snippetwip/annot-docs
-rw-r--r-- | docs/users_guide/extending_ghc.rst | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/docs/users_guide/extending_ghc.rst b/docs/users_guide/extending_ghc.rst index 06f3d2bb41..a727d3ee60 100644 --- a/docs/users_guide/extending_ghc.rst +++ b/docs/users_guide/extending_ghc.rst @@ -522,8 +522,8 @@ will print out the name of any top-level non-recursive binding with the annotationsOn :: Data a => ModGuts -> CoreBndr -> CoreM [a] annotationsOn guts bndr = do - anns <- getAnnotations deserializeWithData guts - return $ lookupWithDefaultUFM anns [] (varUnique bndr) + (_, anns) <- getAnnotations deserializeWithData guts + return $ lookupWithDefaultUFM_Directly anns [] (varUnique bndr) Please see the GHC API documentation for more about how to use internal APIs, etc. |