github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-19 12:51:52 +03:00
Code Issues Projects Releases Wiki Activity

📝 AppMerge.

Browse Source
This commit is contained in:
Rob Rix 2018-03-21 16:41:41 -04:00
parent 541e230431
commit 794a03a49c
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/Data/Semigroup/App.hs
View File

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