@@ -46,13 +46,11 @@ usage = do
4646
4747 putStrLn $ usageInfo pn (options config)
4848
49−configFromArgs :: [Arg] -> Config -> Config
50−configFromArgs [] c =
49+updateConfigFromArg :: Arg -> Config -> Config
50+updateConfigFromArg Help c =
5151 c
52−configFromArgs (Help:as) c =
53− configFromArgs as c
54−configFromArgs (OutputPath p:as) c =
55− configFromArgs as (c { configOutputPath = Just p })
52+updateConfigFromArg (OutputPath p) c =
53+ c { configOutputPath = Just p }
5654
5755main :: IO ()
5856main = do
@@ -68,7 +66,7 @@ main = do
6866 usage
6967 exitFailure
7068
71− let config = configFromArgs args defConfig
69+ let config = foldr updateConfigFromArg defConfig args
7270
7371 outputPath <- case configOutputPath config of
7472 Nothing -> do