haskell-tools-builtin-refactorings-1.0.0.0: examples/Expr/SccPragma.hs

module Expr.SccPragma where

f x = {-# SCC "drawComponent" #-}
        case x of () -> ()