Commit aa54a465 authored by simonpj's avatar simonpj
Browse files

Test Trac #2766

parent 9eef6f3a
-- Test Trac #2766
:set -XTypeOperators
:m Control.Arrow
:t first :: Arrow (~>) => b~>c -> (b, d)~>(c, d)
first :: Arrow (~>) => b~>c -> (b, d)~>(c, d)
:: (Arrow (~>)) => (~>) b c -> (~>) (b, d) (c, d)
......@@ -49,6 +49,7 @@ test('ghci032', normal, ghci_script, ['ghci032.script'])
test('ghci033', normal, ghci_script, ['ghci033.script'])
test('ghci034', normal, ghci_script, ['ghci034.script'])
test('2452', normal, ghci_script, ['2452.script'])
test('T2766', normal, ghci_script, ['T2766.script'])
test('1914',
extra_clean(['T1914A.hs', 'T1914B.hs']),
......
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