Commit 06a9dacd authored by simonpj's avatar simonpj
Browse files

[project @ 2005-12-16 16:03:02 by simonpj]

Add deriving for infix constructors
parent 434514a7
......@@ -20,3 +20,4 @@ test('drvrun014', normal, compile_and_run, [''])
test('drvrun015', normal, compile_and_run, [''])
test('drvrun016', normal, compile_and_run, ['-funbox-strict-fields'])
test('drvrun017', only_compiler_types(['ghc']), compile_and_run, [''])
test('drvrun018', normal, compile_and_run, [''])
{-# OPTIONS -fglasgow-exts #-}
-- Test Show on unboxed types
module Main where
data Foo = Int `MkFoo` Int deriving( Read, Show )
main = do { print (MkFoo 4 5)
; print (read "3 `MkFoo` 5" :: 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