data Args =
- Args { output :: FilePath,
+ Args { full_stories :: Bool,
+ output :: FilePath,
article :: String }
deriving (Show, Data, Typeable)
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