Bump `base` version to 4.9.0.0 (closes #11026)
[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 }