diff options
| author | Simon Marlow <simonmar@microsoft.com> | 2006-01-24 14:21:56 +0000 |
|---|---|---|
| committer | Simon Marlow <simonmar@microsoft.com> | 2006-01-24 14:21:56 +0000 |
| commit | 3162fa91c48071b4c2f5cfa39738c11048f1ebeb (patch) | |
| tree | c3ee5d5ca0ea28f521a84de57c9253a4e4b0ed20 | |
| parent | 100d464a9b3dd754b198053da01478ddf5f922dd (diff) | |
add a test I had lying around
| -rw-r--r-- | examples/Bug8.hs | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/examples/Bug8.hs b/examples/Bug8.hs new file mode 100644 index 00000000..6481ca3f --- /dev/null +++ b/examples/Bug8.hs @@ -0,0 +1,8 @@ +infix --> +infix ---> + +data Typ = Type (String,[Typ]) + | TFree (String, [String]) + +x --> y = Type("fun",[s,t]) +(--->) = flip $ foldr (-->) |