testsuite/tests/rename/should_fail/rnfail051.hs


1
2
3
4
5
6
7
8
9
10
11

-- trac #2033: This used to fail when the renamer didn't check for a view
-- /pattern/ being used in an /expression/ context

module RnFail051 where

main :: IO ()
main = wrapper (_ -> putStrLn "_")

wrapper :: (String -> IO ()) -> IO ()
wrapper f = f ""