freer-0.2.2.1: tests/Tests/Common.hs

module Tests.Common where

import Control.Applicative

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