Commit dc78c85a authored by simonpj's avatar simonpj
Browse files

[project @ 2002-10-23 09:52:55 by simonpj]

Add another read/show test, on records
parent 6a5b5511
......@@ -14,3 +14,4 @@ test('drvrun008', normal, compile_and_run, ['-funbox-strict-fields'])
test('drvrun009', normal, compile_and_run, [''])
test('drvrun010', normal, compile_and_run, [''])
test('drvrun011', normal, compile_and_run, [''])
test('drvrun012', normal, compile_and_run, [''])
-- Tests readings of record syntax
module Main where
data Foo = Foo { x :: Baz, y :: Maybe Int } deriving (Read,Show)
infix 0 :%%
data Baz = Int :%% Int deriving( Read,Show)
main = print (read "Foo { x = 1 :%% 2, y = Just 4 }" :: Foo)
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