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