freer-effects-0.3.0.1: examples/src/Common.hs

module Common (add) where

import Control.Applicative

add :: Applicative f => f Int -> f Int -> f Int
add = liftA2 (+)