Commit 8ddad5bd authored by Simon Peyton Jones's avatar Simon Peyton Jones
Browse files

Add test for Trac #3640

parent 3fdf6762
{-# LANGUAGE NamedFieldPuns #-}
module T3640 where
data Record = Record { f1, f2, f3 :: Int }
goodPun Record{f1,f2,f3} = f1 + f2 + f3
badPun r = f1 + f2 + f3
where Record{f1=f1,f2,f3} = r
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment