Some tidying up of type pretty-printing
[ghc.git] / testsuite / tests / typecheck / should_fail / tcfail102.hs
1 {-# LANGUAGE DatatypeContexts #-}
2 module ShouldFail where
3
4 import Data.Ratio
5
6 data Integral a => P a = P { p :: a }
7
8 f :: Integral a => P (Ratio a) -> P (Ratio a)
9 f x = x { p = p x }