diff options
| -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 |