Commit 41b7d054 authored by Simon Peyton Jones's avatar Simon Peyton Jones
Browse files

Test Trac #5592

parent 8ece5ced
{-# LANGUAGE RecordWildCards #-}
module Main where
import qualified T5592a as MR (MyRecord(MyRecord, field))
main
= do { let field = "Hello, world!"
rec = MR.MyRecord {..}
; print rec }
module T5592a where
data MyRecord = MyRecord { field :: String }
deriving (Show)
......@@ -181,3 +181,8 @@ test('T5306',
'T5306b.hi', 'T5306b.o'])],
multimod_compile,
['T5306', '-v0'])
test('T5592',
[only_compiler_types(['ghc']),
extra_clean(['T5592a.hi', 'T5592a.o'])],
multimod_compile_and_run,
['T5592', '-v0'])
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