X-Git-Url: http://gitweb.michael.orlitzky.com/?p=dead%2Flwn-epub.git;a=blobdiff_plain;f=src%2FConfiguration.hs;h=118f10f3c101513a1a0427f77f35118b7088fea5;hp=1941932686288b99487375e087cc61015beee3b1;hb=6540c24c10cf9f13aa484c760a810d5eda66cda8;hpb=d7eb43dabd083ff2e12e9cfbf9bc2b6fcaa55e0b;ds=sidebyside

diff --git a/src/Configuration.hs b/src/Configuration.hs
index 1941932..118f10f 100644
--- a/src/Configuration.hs
+++ b/src/Configuration.hs
@@ -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