Fix the --full-story handling.
authorMichael Orlitzky <michael@orlitzky.com>
Fri, 13 Jul 2012 02:36:28 +0000 (22:36 -0400)
committerMichael Orlitzky <michael@orlitzky.com>
Fri, 13 Jul 2012 02:36:28 +0000 (22:36 -0400)
src/Configuration.hs

index 1941932686288b99487375e087cc61015beee3b1..118f10f3c101513a1a0427f77f35118b7088fea5 100644 (file)
@@ -35,7 +35,6 @@ data Cfg = Cfg {
   password     :: Maybe String,
   username     :: Maybe String }
 
-
 instance Monoid Cfg where
   mempty = Cfg { article      = "",
                  cookie_jar   = Nothing,
@@ -136,8 +135,9 @@ parse_config = do
 get_cfg :: IO Cfg
 get_cfg = do
   cmd_article <- Cmd.apply_args
-  let arg_cfg = mempty { article = Cmd.article cmd_article,
-                         output  = Cmd.output cmd_article }
+  let arg_cfg = mempty { article      = Cmd.article cmd_article,
+                         full_stories = Cmd.full_stories cmd_article,
+                         output       = Cmd.output cmd_article }
 
   either_file_cfg <- parse_config
   case either_file_cfg of