haskell-tools-refactor-0.6.0.0: examples/Expr/SccPragma.hs

module Expr.SccPragma where

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