From 5ea6482e96571f026780686f0c7d1068f3460ea1 Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Wed, 21 Mar 2018 17:07:55 -0400 Subject: [PATCH] :memo: App. --- src/Data/Semigroup/App.hs | 1 + 1 file changed, 1 insertion(+) diff --git a/src/Data/Semigroup/App.hs b/src/Data/Semigroup/App.hs index 6fec42eb1..4708edb27 100644 --- a/src/Data/Semigroup/App.hs +++ b/src/Data/Semigroup/App.hs @@ -19,5 +19,6 @@ instance (Applicative f, Monoid a, Semigroup a) => Monoid (AppMerge f a) where mappend = (<>) +-- | 'Semigroup' under '*>'. newtype App f a = App { runApp :: f a } deriving (Alternative, Applicative, Bounded, Enum, Eq, Foldable, Functor, Monad, Ord, Show, Traversable)