diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,3 +1,7 @@
+### 0.7.0.1
+
+- Fix docs in README and in Docopt.hs
+
 # 0.7.0.0
 
 - Add usage parsing QuasiQuoters [#7]
diff --git a/README.md b/README.md
--- a/README.md
+++ b/README.md
@@ -24,10 +24,13 @@
 {-# LANGUAGE QuasiQuotes #-}
 import Control.Monad (when)
 import Data.Char (toUpper)
+import System.Environment (getArgs)
 import System.Console.Docopt
 
 patterns :: Docopt
 patterns = [docoptFile|USAGE.txt|]
+
+getArgOrExit = getArgOrExitWith patterns
 
 main = do
   args <- parseArgsOrExit patterns =<< getArgs
diff --git a/System/Console/Docopt.hs b/System/Console/Docopt.hs
--- a/System/Console/Docopt.hs
+++ b/System/Console/Docopt.hs
@@ -6,6 +6,7 @@
 --
 -- import Control.Monad (when)
 -- import Data.Char (toUpper)
+-- import System.Environment (getArgs)
 -- import System.Console.Docopt
 --
 -- patterns :: Docopt
@@ -20,9 +21,11 @@
 --   -c, --caps    Caps-lock the echoed argument
 -- |]
 --
+-- getArgOrExit = getArgOrExitWith patterns
+--
 -- main :: IO ()
 -- main = do
---   args <- parseArgsOrExit patterns
+--   args <- parseArgsOrExit patterns =<< getArgs
 --
 --   when (args \`isPresent\` (command \"cat\")) $ do
 --     file <- args \`getArgOrExit\` (argument \"file\")
diff --git a/docopt.cabal b/docopt.cabal
--- a/docopt.cabal
+++ b/docopt.cabal
@@ -1,5 +1,5 @@
 name:                docopt
-version:             0.7.0.0
+version:             0.7.0.1
 synopsis:            A command-line interface parser that will make you smile
 description:         Docopt parses command-line interface usage text that adheres to a familiar syntax, and from it builds a command-line argument parser that will ensure your program is invoked correctly with the available options specified in the usage text. This allows the developer to write a usage text and get an argument parser for free.