postgresql-orm-0.1: pg_migrate.hs

import Database.PostgreSQL.Migrate
import System.Environment
import System.Exit 
import System.FilePath
import System.IO

main :: IO ()
main = do
  args <- getArgs
  ec <- case args of
    "init":[] -> initializeDb >> return ExitSuccess
    "dump":[] -> withFile (defaultMigrationsDir </> ".." </> "schema.sql")
                  WriteMode $ dumpDb
    "dump":file:[] -> withFile file WriteMode $ dumpDb
    "migrate":[] -> runMigrationsForDir stdout defaultMigrationsDir
    "migrate":dir:[] -> runMigrationsForDir stdout dir
    "rollback":[] -> runRollbackForDir defaultMigrationsDir
    "rollback":dir:[] -> runRollbackForDir dir
    _ -> do
      progName <- getProgName
      putStrLn $ "Usage: " ++ progName ++ " migrate|rollback [DIRECTORY]"
      putStrLn $ "       " ++ progName ++ " init"
      putStrLn $ "       " ++ progName ++ " dump [FILE]"
      return $ ExitFailure 1
  if ec == ExitSuccess then
    return ()
    else exitWith ec