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

module Expr.SccPragma where

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