
peelAnns :: ModGuts -> CoreBndr -> CoreM [Peel]
peelAnns = annotationsOn 

unrollAnns :: ModGuts -> CoreBndr -> CoreM [Unroll]
unrollAnns = annotationsOn

annotationsOn :: Data a => ModGuts -> CoreBndr -> CoreM [a]