Commit 875d5806 authored by simonpj's avatar simonpj
Browse files

[project @ 2003-02-14 13:00:38 by simonpj]

Add deriving test for record fields with leading underscore
parent ae3a3a9d
......@@ -17,3 +17,4 @@ test('drvrun011', normal, compile_and_run, [''])
test('drvrun012', normal, compile_and_run, [''])
test('drvrun013', normal, compile_and_run, [''])
test('drvrun014', normal, compile_and_run, [''])
test('drvrun015', normal, compile_and_run, [''])
-- The leading underscore killed GHC 5.04
module Main where
data Obj = Obj {_id, p1, p2::Int} deriving (Show, Read)
main = print (show (read "Obj {_id=1,p1=10,p2=20}" :: Obj))
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