Commit fd9bfbd5 authored by Simon Peyton Jones's avatar Simon Peyton Jones
Browse files

Test Trac #5712

parent 6b90fe44
{-# LANGUAGE GADTs #-}
module Main where
infix 5 :*:
data T a where
(:*:) :: Int -> a -> T a
(:+:) :: Char -> T a -> T a
deriving( Show )
-- The Show should print (:*:) infix, but (:+:) prefix,
-- since it lacks a fixity declaration
main = print ('x' :+: (3 :*: True))
...@@ -33,4 +33,5 @@ test('T4136', normal, compile_and_run, ['']) ...@@ -33,4 +33,5 @@ test('T4136', normal, compile_and_run, [''])
test('T4528a', normal, compile_and_run, ['']) test('T4528a', normal, compile_and_run, [''])
test('T5041', normal, compile_and_run, ['']) test('T5041', normal, compile_and_run, [''])
test('T5628', exit_code(1), compile_and_run, ['']) test('T5628', exit_code(1), compile_and_run, [''])
test('T5712', normal, compile_and_run, [''])
Supports Markdown
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