Commit 34bc68a5 authored by igloo's avatar igloo

[project @ 2004-11-18 00:56:24 by igloo]

Implement FunDeps for TH.
parent 34b3dd13
{-# OPTIONS -fglasgow-exts #-}
module TH_class1 where
$( [d| class Classy a b c d | a -> b c, c -> d where
f :: a -> b -> c -> d
|] )
Loading package base ... linking ... done.
Loading package haskell98 ... linking ... done.
Loading package template-haskell ... linking ... done.
...@@ -33,4 +33,6 @@ test('TH_bracket1', normal, compile, ['']) ...@@ -33,4 +33,6 @@ test('TH_bracket1', normal, compile, [''])
test('TH_bracket2', normal, compile, ['']) test('TH_bracket2', normal, compile, [''])
test('TH_bracket3', normal, compile, ['']) test('TH_bracket3', normal, compile, [''])
test('TH_class1', normal, compile, [''])
test('TH_where', normal, compile_and_run, ['']) test('TH_where', normal, compile_and_run, [''])
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