1f x y = g (x + y) 2 where 3 g z = z 4 {-# SCC g #-} 5 6{-# SCC f #-} 7 8withString x y = x + y 9 10{-# SCC withString "cost_centre_name" #-} 11 12withString' x y = x + y 13 14{-# SCC withString' 15 "cost_centre_name" 16 #-} 17