2 lines
98 B
Text
2 lines
98 B
Text
add1Everywhere :: (f a) -> (f a) | Functor f & Num a
|
|
add1Everywhere nums = fmap (\x = x + 1) nums
|