From: Michael Orlitzky <michael@orlitzky.com>
Date: Fri, 13 Jul 2012 02:36:28 +0000 (-0400)
Subject: Fix the --full-story handling.
X-Git-Tag: v0.0.1~14
X-Git-Url: http://gitweb.michael.orlitzky.com/?p=dead%2Flwn-epub.git;a=commitdiff_plain;h=6540c24c10cf9f13aa484c760a810d5eda66cda8

Fix the --full-story handling.
---

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