Commit 01d34d34 authored by simonpj's avatar simonpj
Browse files

[project @ 2003-01-13 12:04:36 by simonpj]

Fails with 5.02.3
parent b8367337
...@@ -16,3 +16,4 @@ test('drvrun010', normal, compile_and_run, ['']) ...@@ -16,3 +16,4 @@ test('drvrun010', normal, compile_and_run, [''])
test('drvrun011', normal, compile_and_run, ['']) test('drvrun011', normal, compile_and_run, [''])
test('drvrun012', normal, compile_and_run, ['']) test('drvrun012', normal, compile_and_run, [''])
test('drvrun013', normal, compile_and_run, ['']) test('drvrun013', normal, compile_and_run, [''])
test('drvrun014', normal, compile_and_run, [''])
-- This one gave the wrong answer with ghci 5.02.3 (and 5.02.2)
module Main where
infixr 3 :*
infixr 2 :+
data RE a = RE a :+ RE a
| RE a :* RE a
| Cat [RE a]
| Star (RE a)
| Plus (RE a)
| Opt (RE a)
| Comp (RE a)
| Empty
| Str [a]
deriving (Show, Eq, Ord)
main = print (Str "ab" == (Str "a" :+ Str "b"))
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