AK
Size: a a a
AK
AP
type Monoid a =
{ empty : a
, append : a -> a -> a
}
(<>) : Monoid a -> a -> a -> a
AP
AP
maybeStringMonoid : Monoid (Maybe String)
let
(z, (<>)) = withMonoid maybeMonoid
in z <> Just "foo" <> Just "bar" <>z
AK
AK
AP
AK
AK
AP
at
Вл
Вл
AP
AK
AP
AP
AP
PF