{-# LANGUAGE MultiParamTypeClasses #-}{-# LANGUAGE FunctionalDependencies #-} {-# LANGUAGE FlexibleInstances #-} class C a b | a -> b where f :: a -> Intinstance C () () where f x = 1 main = print $ f ()
Standard input is empty
1
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!