augur-2008.10.19: src/Main.hs

module Main where

import System.Environment

import Control.Monad

import Storage
import Parse
import Rename
import Setup
import Config

{-

 add
 remove
 fetch
 parse
 rename

-}


main :: IO ()
main = do (action, args, conf) <- parseArguments =<< getArgs
          case action of
            Add    -> forM_ args addSerie
            Remove -> forM_ args removeSerie
            Parse format -> do ppArgs <- parse conf format args
                               forM_ ppArgs putStrLn
            Rename format -> rename conf format args