blob: 872bc69f7c0f6babc54b4efa90a8d3fdf853e355 (
plain)
1
2
3
4
5
6
7
8
|
{-# LANGUAGE MonomorphismRestriction, ExtendedDefaultRules #-}
module T10971c where
import Data.Traversable (fmapDefault)
f = \x -> length x
g = \f x -> fmapDefault f x
h = \f x -> (fmapDefault f x, length x)
|