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

{-# LANGUAGE RecordWildCards #-}
module Expr.PatternAndDo where

import Control.Monad
import Control.Monad.Identity

data A = A { x :: Int }

a = forM_ [] $ \A {..} -> do
      Identity "Hello"