I am trying to implement some kind of local warnings suppresion and i need some help.

I want to use a pragma to mark functions so compiler won't throw warnings from them. I defined my pragma in lexer, parser and added type signature in HsBinds.hs. And i am stuck. I don't know what to do. What should i consider doing further?

I designed a small wiki page here - https://ghc.haskell.org/trac/ghc/wiki/Design/LocalWarningPragmas

So if you have nice examples, feel free to add them. Thanks for your help in advance!