diff --git a/library/OptparseApplicative/Simple/Parser.hs b/library/OptparseApplicative/Simple/Parser.hs
--- a/library/OptparseApplicative/Simple/Parser.hs
+++ b/library/OptparseApplicative/Simple/Parser.hs
@@ -2,7 +2,9 @@
 (
   Parser,
   argument,
+  showableArgument,
   lenientArgument,
+  showableLenientArgument,
 )
 where
 
@@ -44,6 +46,17 @@
       foldMap (A.help . C.unpack) description <>
       foldMap (\(value, text) -> A.value value <> A.showDefaultWith (const (C.unpack text))) defaultValue
 
+showableArgument
+  :: Show a
+  => Text -- ^ Long name
+  -> Maybe Char -- ^ Possible short name
+  -> Maybe Text -- ^ Possible description
+  -> Maybe a -- ^ Possible default value
+  -> B.Parser a -- ^ Attoparsec parser of the value. The \"attoparsec-data\" package provides such parsers for a lot of standard types
+  -> A.Parser a
+showableArgument longName shortName description defaultValue parser =
+  argument longName shortName description (fmap (\ x -> (x, fromString (show x))) defaultValue) parser
+
 {-|
 Same as 'argument', only provided with a default parser.
 -}
@@ -58,3 +71,10 @@
       foldMap A.short shortName <>
       foldMap (A.help . C.unpack) description <>
       foldMap (\(value, text) -> A.value value <> A.showDefaultWith (const (C.unpack text))) defaultValue
+
+{-|
+Same as 'showableArgument', only provided with a default parser.
+-}
+showableLenientArgument :: (D.LenientParser a, Show a) => Text -> Maybe Char -> Maybe Text -> Maybe a -> A.Parser a
+showableLenientArgument longName shortName description defaultValue =
+  lenientArgument longName shortName description (fmap (\ x -> (x, fromString (show x))) defaultValue)
diff --git a/optparse-applicative-simple.cabal b/optparse-applicative-simple.cabal
--- a/optparse-applicative-simple.cabal
+++ b/optparse-applicative-simple.cabal
@@ -1,7 +1,7 @@
 name:
   optparse-applicative-simple
 version:
-  1.0.2
+  1.0.3
 category:
   CLI, Parsing, Options
 synopsis: