diff options
| author | David <dknothe314@me.com> | 2021-06-16 17:41:11 +0000 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-06-19 12:24:15 -0400 |
| commit | a6548a667229594e6156b31d156dbca20a44f8ff (patch) | |
| tree | a9c34ab1bc4ca99f10faa6e9d234d5fa70778537 | |
| parent | 6b2952cfab2dff6eafa0bd5c5a5f4e75e757b392 (diff) | |
| download | haskell-a6548a667229594e6156b31d156dbca20a44f8ff.tar.gz | |
Correct haddock annotations in GetOpt
| -rw-r--r-- | libraries/base/System/Console/GetOpt.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/libraries/base/System/Console/GetOpt.hs b/libraries/base/System/Console/GetOpt.hs index 38cccc2ed4..52a767b856 100644 --- a/libraries/base/System/Console/GetOpt.hs +++ b/libraries/base/System/Console/GetOpt.hs @@ -96,17 +96,17 @@ data ArgDescr a | ReqArg (String -> a) String -- ^ option requires argument | OptArg (Maybe String -> a) String -- ^ optional argument --- | @since 4.6.0.0 +-- | @since 4.7.0.0 instance Functor ArgOrder where fmap _ RequireOrder = RequireOrder fmap _ Permute = Permute fmap f (ReturnInOrder g) = ReturnInOrder (f . g) --- | @since 4.6.0.0 +-- | @since 4.7.0.0 instance Functor OptDescr where fmap f (Option a b argDescr c) = Option a b (fmap f argDescr) c --- | @since 4.6.0.0 +-- | @since 4.7.0.0 instance Functor ArgDescr where fmap f (NoArg a) = NoArg (f a) fmap f (ReqArg g s) = ReqArg (f . g) s |