diff options
| author | Hugo <hpeters1024@gmail.com> | 2022-02-22 16:09:24 +0100 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2022-02-22 16:31:01 -0500 |
| commit | 558c7d554b9724abfaa2bcc1f42050e67b36a988 (patch) | |
| tree | 313ad10ae52e9314d9db141043c194a6e1a4072c /docs/users_guide/extending_ghc.rst | |
| parent | ace66decb46541a33cddc9f91a4221e3dad8b537 (diff) | |
| download | haskell-558c7d554b9724abfaa2bcc1f42050e67b36a988.tar.gz | |
docs: fix error in annotation guide code snippet
Diffstat (limited to 'docs/users_guide/extending_ghc.rst')
| -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. |