1
1
mirror of https://github.com/github/semantic.git synced 2024-12-19 12:51:52 +03:00

📝 AppMerge.

This commit is contained in:
Rob Rix 2018-03-21 16:41:41 -04:00
parent 541e230431
commit 794a03a49c

View File

@ -4,6 +4,7 @@ module Data.Semigroup.App where
import Control.Applicative
import Data.Semigroup
-- | 'Semigroup' under '<*>' and '<>'.
newtype AppMerge f a = AppMerge { runAppMerge :: f a }
deriving (Alternative, Applicative, Bounded, Enum, Eq, Foldable, Functor, Monad, Ord, Show, Traversable)