X-Git-Url: http://gitweb.michael.orlitzky.com/?p=dead%2Flwn-epub.git;a=blobdiff_plain;f=src%2FCommandLine.hs;h=2df29a57dfd9a10635d46c75af20ccd47f66ae72;hp=7afc7f1589a84c78a53fcf45493f7d0caad0be1f;hb=1d9b1f888c9dcb7c82ce35682b4e9f0210f93f0a;hpb=5ac7dd7f301ba633b38d7bf2361044d25204bb6e

diff --git a/src/CommandLine.hs b/src/CommandLine.hs
index 7afc7f1..2df29a5 100644
--- a/src/CommandLine.hs
+++ b/src/CommandLine.hs
@@ -40,7 +40,8 @@ import ExitCodes
 
 
 data Args =
-  Args { output :: FilePath,
+  Args { full_stories :: Bool,
+         output :: FilePath,
          article :: String }
   deriving   (Show, Data, Typeable)
 
@@ -58,11 +59,15 @@ lwn_epub_summary =
 output_help :: String
 output_help = "Output file, defaults to stdout"
 
+full_stories_help :: String
+full_stories_help = "Replace \"Full Story\" links with their content"
+
 arg_spec :: Mode (CmdArgs Args)
 arg_spec = cmdArgsMode $
              Args {
-               output = def  &= typFile &= help output_help,
-               article = def &= argPos 0 &= typ "ARTICLE"
+               full_stories = def &= help full_stories_help,
+               output       = def &= typFile  &= help output_help,
+               article      = def &= argPos 0 &= typ "ARTICLE"
              }
              &= program program_name
              &= summary lwn_epub_summary