tcfail102.hs 144 Bytes
Newer Older
1
2
3
4
5
6
7
8
module ShouldFail where

import Ratio

data Integral a => P a = P { p :: a }

f :: Integral a => P (Ratio a) -> P (Ratio a)
f x = x { p = p x }