From 6540c24c10cf9f13aa484c760a810d5eda66cda8 Mon Sep 17 00:00:00 2001 From: Michael Orlitzky Date: Thu, 12 Jul 2012 22:36:28 -0400 Subject: [PATCH] Fix the --full-story handling. --- src/Configuration.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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 -- 2.43.2