Testsuite: tabs -> spaces [skip ci]
[ghc.git] / testsuite / tests / typecheck / should_fail / tcfail131.hs
1 -- Error message in monomorphic case
2
3 module ShouldFail where
4
5 f = (*) -- Monomorphic
6 g :: Num b => b -> b
7 g x = f x x