From 7ef051d9d1012a664a295c2f38e9b32f7aed4dca Mon Sep 17 00:00:00 2001 From: Simon Jakobi Date: Tue, 24 Mar 2020 16:28:53 +0100 Subject: docs: Add examples for Data.Semigroup.Arg{Min,Max} Context: #17153 --- libraries/base/Data/Semigroup.hs | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/libraries/base/Data/Semigroup.hs b/libraries/base/Data/Semigroup.hs index 3b123ad81e..fde9706416 100644 --- a/libraries/base/Data/Semigroup.hs +++ b/libraries/base/Data/Semigroup.hs @@ -302,7 +302,14 @@ data Arg a b = Arg , Generic1 -- ^ @since 4.9.0.0 ) +-- | +-- >>> Min (Arg 0 ()) <> Min (Arg 1 ()) +-- Min {getMin = Arg 0 ()} type ArgMin a b = Min (Arg a b) + +-- | +-- >>> Max (Arg 0 ()) <> Max (Arg 1 ()) +-- Max {getMax = Arg 1 ()} type ArgMax a b = Max (Arg a b) -- | @since 4.9.0.0 -- cgit v1.2.1