diff --git a/CHANGELOG b/CHANGELOG
--- a/CHANGELOG
+++ b/CHANGELOG
@@ -1,3 +1,5 @@
-0.1.0:
+0.1.1:
+	* Printer fix for options consumer.
 
-* Change to Result type which supports Continued constructor.
+0.1.0:
+	* Change to Result type which supports Continued constructor.
diff --git a/README.md b/README.md
--- a/README.md
+++ b/README.md
@@ -172,6 +172,11 @@
 λ>
 ```
 
+``` haskell
+λ> textDescription (describe server [])
+"start SERVER_NAME [--dev] --port <...>"
+```
+
 ## Self-documenting JSON parser
 
 See `Descriptive.JSON`.
diff --git a/descriptive.cabal b/descriptive.cabal
--- a/descriptive.cabal
+++ b/descriptive.cabal
@@ -1,5 +1,5 @@
 name:                descriptive
-version:             0.1.0
+version:             0.1.1
 synopsis:            Self-describing consumers/parsers; forms, cmd-line args, JSON, etc.
 description:         Self-describing consumers/parsers. See the README.md for more information. It is currently EXPERIMENTAL.
 stability:           Experimental
diff --git a/src/Descriptive/Options.hs b/src/Descriptive/Options.hs
--- a/src/Descriptive/Options.hs
+++ b/src/Descriptive/Options.hs
@@ -134,6 +134,6 @@
 textOpt :: Option -> Text
 textOpt (AnyString t) = T.map toUpper t
 textOpt (Constant t) = t
-textOpt (Flag t _) = "--" <> t
-textOpt (Arg t _) = "-" <> t <> " <...>"
+textOpt (Flag t _) = "[--" <> t <> "]"
+textOpt (Arg t _) = "--" <> t <> " <...>"
 textOpt (Prefix t _) = "-" <> t <> "<...>"