Fix the --full-story handling.

[dead/lwn-epub.git] / src / Configuration.hs

diff --git a/src/Configuration.hs b/src/Configuration.hs
index 1941932686288b99487375e087cc61015beee3b1..118f10f3c101513a1a0427f77f35118b7088fea5 100644 (file)
--- a/src/Configuration.hs
+++ b/src/Configuration.hs
@@ -35,7 +35,6 @@ data Cfg = Cfg {
   password     :: Maybe String,
   username     :: Maybe String }
 
   password     :: Maybe String,
   username     :: Maybe String }
 

-

 instance Monoid Cfg where
   mempty = Cfg { article      = "",
                  cookie_jar   = Nothing,
 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
 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
 
   either_file_cfg <- parse_config
   case either_file_cfg of