Improve error message in deriving( Functor )
[ghc.git] / testsuite / tests / typecheck / should_fail / T10971b.hs
1 {-# LANGUAGE MonomorphismRestriction, NoExtendedDefaultRules #-}
2 module T10971b where
3 import Data.Traversable (fmapDefault)
4 f = \x -> length x
5 g = \f x -> fmapDefault f x
6 h = \f x -> (fmapDefault f x, length x)