hpodder 0.99.1 → 0.99.5
raw patch · 2 files changed
+13/−8 lines, 2 filesdep +filepathdep −FilePathdep ~HDBCdep ~HDBC-sqlite3
Dependencies added: filepath
Dependencies removed: FilePath
Dependency ranges changed: HDBC, HDBC-sqlite3
Files
- hpodder.cabal +5/−5
- hpodder.hs +8/−3
hpodder.cabal view
@@ -1,10 +1,10 @@ Name: hpodder-Version: 0.99.1+Version: 0.99.5 License: GPL Maintainer: John Goerzen <jgoerzen@complete.org> Author: John Goerzen Stability: Beta-Copyright: Copyright (c) 2006 John Goerzen+Copyright: Copyright (c) 2006-2007 John Goerzen license-file: COPYRIGHT extra-source-files: COPYING homepage: http://software.complete.org/hpodder@@ -63,11 +63,11 @@ beginning. It should be exceedingly difficult to lose a podcast episode, even in the event of a power failure. Build-Depends: haskell98, network, unix, parsec, MissingH>=0.18.0,- HDBC>=0.99.2, HDBC-sqlite3>=0.99.2, mtl, base, HaXml>=1.13.2, hslogger,- ConfigFile, FilePath+ HDBC>=1.1.0, HDBC-sqlite3>=1.1.0, mtl, base, HaXml>=1.13.2, hslogger,+ ConfigFile, filepath Executable: hpodder Main-Is: hpodder.hs-GHC-Options: -O2 -threaded+GHC-Options: -O2 Extensions: ExistentialQuantification, OverlappingInstances, UndecidableInstances
hpodder.hs view
@@ -1,5 +1,5 @@ {- hpodder component-Copyright (C) 2006 John Goerzen <jgoerzen@complete.org>+Copyright (C) 2006-2007 John Goerzen <jgoerzen@complete.org> This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by@@ -18,7 +18,7 @@ {- | Module : Main- Copyright : Copyright (C) 2006 John Goerzen+ Copyright : Copyright (C) 2006-2007 John Goerzen License : GNU GPL, version 2 or above Maintainer : John Goerzen <jgoerzen@complete.org>@@ -32,6 +32,8 @@ import Config import DB import System.Log.Logger+import System.Log.Handler.Simple+import System.IO(stdout) import System.Console.GetOpt.Utils import System.Console.GetOpt import System.Environment@@ -56,7 +58,10 @@ worker args n commandargs = do when (lookup "help" args == Just "") $ usageerror ""- when (lookup "d" args == Just "") $ updateGlobalLogger "" (setLevel DEBUG)+ when (lookup "d" args == Just "") + (updateGlobalLogger "" (setLevel DEBUG))+ handler <- streamHandler stdout DEBUG+ updateGlobalLogger "" (setHandlers [handler]) initDirs let commandname = head cmdargs case lookup commandname allCommands of