Commit 2cc10116 authored by simonpj's avatar simonpj
Browse files

Test Trac #1624

parent af3a8ab4
{-# LANGUAGE MultiParamTypeClasses, FunctionalDependencies, FlexibleInstances #-}
module Main where
class Foo a b | a -> b where
foo :: a -> Maybe b
foo x = Nothing
bar :: a -> b
instance Foo (Maybe a) a where
bar (Just x) = x
main = do { print (foo (Just 'x'))
; print (bar (Just 'y')) }
......@@ -65,3 +65,4 @@ test('tcrun040', normal, compile_and_run, [''])
test('church', normal, compile_and_run, [''])
test('testeq2', normal, compile_and_run, [''])
test('T1624', 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