{-# LANGUAGE Haskell2010 #-}
{-# OPTIONS_GHC -fwarn-name-shadowing -fwarn-unused-binds #-}
-- #1972
module Temp where
import Data.List (mapAccumL)
data Data = Data {name :: String}
h :: a -> a
h name = name
f mapAccumL x = x
mapAccumL y = y
test x = a+b
where
(a,b,c) = x