1module Ppr048 where 2 3{-# SCc foo #-} 4foo :: Int -> Int 5foo x = x 6 7{-# SCc foo2 "label" #-} 8foo2 :: () 9foo2 = () 10 11