packages feed

dbmigrations 0.9 → 0.9.1

raw patch · 3 files changed

+7/−3 lines, 3 filesPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

API changes (from Hackage documentation)

- Database.Schema.Migrations.Backend: applyMigration :: Backend -> Migration -> IO ()
- Database.Schema.Migrations.Backend: commitBackend :: Backend -> IO ()
- Database.Schema.Migrations.Backend: disconnectBackend :: Backend -> IO ()
- Database.Schema.Migrations.Backend: getBootstrapMigration :: Backend -> IO Migration
- Database.Schema.Migrations.Backend: getMigrations :: Backend -> IO [String]
- Database.Schema.Migrations.Backend: isBootstrapped :: Backend -> IO Bool
- Database.Schema.Migrations.Backend: revertMigration :: Backend -> Migration -> IO ()
- Database.Schema.Migrations.Backend: rollbackBackend :: Backend -> IO ()
- Database.Schema.Migrations.Dependencies: depGraph :: DependencyGraph a -> Gr String String
- Database.Schema.Migrations.Dependencies: depGraphNameMap :: DependencyGraph a -> [(String, Int)]
- Database.Schema.Migrations.Dependencies: depGraphObjectMap :: DependencyGraph a -> [(a, Int)]
- Database.Schema.Migrations.Dependencies: instance Eq a => Eq (DependencyGraph a)
- Database.Schema.Migrations.Dependencies: instance Show a => Show (DependencyGraph a)
- Database.Schema.Migrations.Filesystem: instance Exception FilesystemStoreError
- Database.Schema.Migrations.Filesystem: instance Show FilesystemStoreError
- Database.Schema.Migrations.Filesystem: instance Typeable FilesystemStoreError
- Database.Schema.Migrations.Filesystem: storePath :: FilesystemStoreSettings -> FilePath
- Database.Schema.Migrations.Migration: instance Dependable Migration
- Database.Schema.Migrations.Migration: instance Eq Migration
- Database.Schema.Migrations.Migration: instance Ord Migration
- Database.Schema.Migrations.Migration: instance Show Migration
- Database.Schema.Migrations.Migration: mApply :: Migration -> String
- Database.Schema.Migrations.Migration: mDeps :: Migration -> [String]
- Database.Schema.Migrations.Migration: mDesc :: Migration -> Maybe String
- Database.Schema.Migrations.Migration: mId :: Migration -> String
- Database.Schema.Migrations.Migration: mRevert :: Migration -> Maybe String
- Database.Schema.Migrations.Migration: mTimestamp :: Migration -> Maybe UTCTime
- Database.Schema.Migrations.Store: fullMigrationName :: MigrationStore -> String -> IO String
- Database.Schema.Migrations.Store: getMigrations :: MigrationStore -> IO [String]
- Database.Schema.Migrations.Store: instance Eq MapValidationError
- Database.Schema.Migrations.Store: instance Show MapValidationError
- Database.Schema.Migrations.Store: loadMigration :: MigrationStore -> String -> IO (Either String Migration)
- Database.Schema.Migrations.Store: saveMigration :: MigrationStore -> Migration -> IO ()
- Database.Schema.Migrations.Store: storeDataGraph :: StoreData -> DependencyGraph Migration
- Database.Schema.Migrations.Store: storeDataMapping :: StoreData -> MigrationMap
- Moo.CommandUtils: instance Eq AskDepsChoice
- Moo.Core: _appCommand :: AppState -> Command
- Moo.Core: _appDatabaseConnStr :: AppState -> DbConnDescriptor
- Moo.Core: _appDatabaseType :: AppState -> String
- Moo.Core: _appOptionalArgs :: AppState -> [String]
- Moo.Core: _appOptions :: AppState -> CommandOptions
- Moo.Core: _appRequiredArgs :: AppState -> [String]
- Moo.Core: _appStore :: AppState -> MigrationStore
- Moo.Core: _appStoreData :: AppState -> StoreData
- Moo.Core: _cAllowedOptions :: Command -> [String]
- Moo.Core: _cDescription :: Command -> String
- Moo.Core: _cHandler :: Command -> CommandHandler
- Moo.Core: _cName :: Command -> String
- Moo.Core: _cOptional :: Command -> [String]
- Moo.Core: _cRequired :: Command -> [String]
- Moo.Core: _configFilePath :: CommandOptions -> Maybe String
- Moo.Core: _connectionString :: Configuration -> String
- Moo.Core: _databaseType :: Configuration -> String
- Moo.Core: _dbConnStr :: ConfigData -> String
- Moo.Core: _dbTypeStr :: ConfigData -> String
- Moo.Core: _fileStorePath :: ConfigData -> String
- Moo.Core: _migrationStorePath :: Configuration -> FilePath
- Moo.Core: _noAsk :: CommandOptions -> Bool
- Moo.Core: _test :: CommandOptions -> Bool
- Moo.Main: _connectionString :: Configuration -> String
- Moo.Main: _databaseType :: Configuration -> String
- Moo.Main: _migrationStorePath :: Configuration -> FilePath
+ Database.Schema.Migrations.Backend: [applyMigration] :: Backend -> Migration -> IO ()
+ Database.Schema.Migrations.Backend: [commitBackend] :: Backend -> IO ()
+ Database.Schema.Migrations.Backend: [disconnectBackend] :: Backend -> IO ()
+ Database.Schema.Migrations.Backend: [getBootstrapMigration] :: Backend -> IO Migration
+ Database.Schema.Migrations.Backend: [getMigrations] :: Backend -> IO [String]
+ Database.Schema.Migrations.Backend: [isBootstrapped] :: Backend -> IO Bool
+ Database.Schema.Migrations.Backend: [revertMigration] :: Backend -> Migration -> IO ()
+ Database.Schema.Migrations.Backend: [rollbackBackend] :: Backend -> IO ()
+ Database.Schema.Migrations.Dependencies: [depGraphNameMap] :: DependencyGraph a -> [(String, Int)]
+ Database.Schema.Migrations.Dependencies: [depGraphObjectMap] :: DependencyGraph a -> [(a, Int)]
+ Database.Schema.Migrations.Dependencies: [depGraph] :: DependencyGraph a -> Gr String String
+ Database.Schema.Migrations.Dependencies: instance GHC.Classes.Eq a => GHC.Classes.Eq (Database.Schema.Migrations.Dependencies.DependencyGraph a)
+ Database.Schema.Migrations.Dependencies: instance GHC.Show.Show a => GHC.Show.Show (Database.Schema.Migrations.Dependencies.DependencyGraph a)
+ Database.Schema.Migrations.Filesystem: [storePath] :: FilesystemStoreSettings -> FilePath
+ Database.Schema.Migrations.Filesystem: instance GHC.Exception.Exception Database.Schema.Migrations.Filesystem.FilesystemStoreError
+ Database.Schema.Migrations.Filesystem: instance GHC.Show.Show Database.Schema.Migrations.Filesystem.FilesystemStoreError
+ Database.Schema.Migrations.Migration: [mApply] :: Migration -> String
+ Database.Schema.Migrations.Migration: [mDeps] :: Migration -> [String]
+ Database.Schema.Migrations.Migration: [mDesc] :: Migration -> Maybe String
+ Database.Schema.Migrations.Migration: [mId] :: Migration -> String
+ Database.Schema.Migrations.Migration: [mRevert] :: Migration -> Maybe String
+ Database.Schema.Migrations.Migration: [mTimestamp] :: Migration -> Maybe UTCTime
+ Database.Schema.Migrations.Migration: instance Database.Schema.Migrations.Dependencies.Dependable Database.Schema.Migrations.Migration.Migration
+ Database.Schema.Migrations.Migration: instance GHC.Classes.Eq Database.Schema.Migrations.Migration.Migration
+ Database.Schema.Migrations.Migration: instance GHC.Classes.Ord Database.Schema.Migrations.Migration.Migration
+ Database.Schema.Migrations.Migration: instance GHC.Show.Show Database.Schema.Migrations.Migration.Migration
+ Database.Schema.Migrations.Store: [fullMigrationName] :: MigrationStore -> String -> IO String
+ Database.Schema.Migrations.Store: [getMigrations] :: MigrationStore -> IO [String]
+ Database.Schema.Migrations.Store: [loadMigration] :: MigrationStore -> String -> IO (Either String Migration)
+ Database.Schema.Migrations.Store: [saveMigration] :: MigrationStore -> Migration -> IO ()
+ Database.Schema.Migrations.Store: [storeDataGraph] :: StoreData -> DependencyGraph Migration
+ Database.Schema.Migrations.Store: [storeDataMapping] :: StoreData -> MigrationMap
+ Database.Schema.Migrations.Store: instance GHC.Classes.Eq Database.Schema.Migrations.Store.MapValidationError
+ Database.Schema.Migrations.Store: instance GHC.Show.Show Database.Schema.Migrations.Store.MapValidationError
+ Moo.CommandUtils: instance GHC.Classes.Eq Moo.CommandUtils.AskDepsChoice
+ Moo.Core: [_appCommand] :: AppState -> Command
+ Moo.Core: [_appDatabaseConnStr] :: AppState -> DbConnDescriptor
+ Moo.Core: [_appDatabaseType] :: AppState -> String
+ Moo.Core: [_appOptionalArgs] :: AppState -> [String]
+ Moo.Core: [_appOptions] :: AppState -> CommandOptions
+ Moo.Core: [_appRequiredArgs] :: AppState -> [String]
+ Moo.Core: [_appStoreData] :: AppState -> StoreData
+ Moo.Core: [_appStore] :: AppState -> MigrationStore
+ Moo.Core: [_cAllowedOptions] :: Command -> [String]
+ Moo.Core: [_cDescription] :: Command -> String
+ Moo.Core: [_cHandler] :: Command -> CommandHandler
+ Moo.Core: [_cName] :: Command -> String
+ Moo.Core: [_cOptional] :: Command -> [String]
+ Moo.Core: [_cRequired] :: Command -> [String]
+ Moo.Core: [_configFilePath] :: CommandOptions -> Maybe String
+ Moo.Core: [_connectionString] :: Configuration -> String
+ Moo.Core: [_databaseType] :: Configuration -> String
+ Moo.Core: [_dbConnStr] :: ConfigData -> String
+ Moo.Core: [_dbTypeStr] :: ConfigData -> String
+ Moo.Core: [_fileStorePath] :: ConfigData -> String
+ Moo.Core: [_migrationStorePath] :: Configuration -> FilePath
+ Moo.Core: [_noAsk] :: CommandOptions -> Bool
+ Moo.Core: [_test] :: CommandOptions -> Bool
+ Moo.Main: [_connectionString] :: Configuration -> String
+ Moo.Main: [_databaseType] :: Configuration -> String
+ Moo.Main: [_migrationStorePath] :: Configuration -> FilePath
- Database.Schema.Migrations.Backend.HDBC: hdbcBackend :: IConnection conn => conn -> Backend
+ Database.Schema.Migrations.Backend.HDBC: hdbcBackend :: (IConnection conn) => conn -> Backend
- Database.Schema.Migrations.Dependencies: dependencies :: Dependable d => DependencyGraph d -> String -> [String]
+ Database.Schema.Migrations.Dependencies: dependencies :: (Dependable d) => DependencyGraph d -> String -> [String]
- Database.Schema.Migrations.Dependencies: mkDepGraph :: Dependable a => [a] -> Either String (DependencyGraph a)
+ Database.Schema.Migrations.Dependencies: mkDepGraph :: (Dependable a) => [a] -> Either String (DependencyGraph a)
- Database.Schema.Migrations.Dependencies: reverseDependencies :: Dependable d => DependencyGraph d -> String -> [String]
+ Database.Schema.Migrations.Dependencies: reverseDependencies :: (Dependable d) => DependencyGraph d -> String -> [String]

Files

dbmigrations.cabal view
@@ -1,5 +1,5 @@ Name:                dbmigrations-Version:             0.9+Version:             0.9.1 Synopsis:            An implementation of relational database "migrations" Description:         A library and program for the creation,                      management, and installation of schema updates
src/Database/Schema/Migrations/Migration.hs view
@@ -28,6 +28,6 @@             , mId = theId             , mApply = "(Apply SQL here.)"             , mRevert = Nothing-            , mDesc = Nothing+            , mDesc = Just "(Describe migration here.)"             , mDeps = []             }
src/Moo/CommandHandlers.hs view
@@ -10,6 +10,7 @@ import Data.Maybe ( isJust ) import Control.Monad.Reader ( asks ) import System.Exit ( exitWith, ExitCode(..), exitSuccess )+import qualified Data.Time.Clock as Clock import Control.Monad.Trans ( liftIO )  import Database.Schema.Migrations.Store hiding (getMigrations)@@ -44,7 +45,10 @@      case result of       True -> do-               status <- createNewMigration store $ (newMigration migrationId) { mDeps = deps }+               now <- Clock.getCurrentTime+               status <- createNewMigration store $ (newMigration migrationId) { mDeps = deps+                                                                               , mTimestamp = Just now+                                                                               }                case status of                  Left e -> putStrLn e >> (exitWith (ExitFailure 1))                  Right _ -> putStrLn $ "Migration created successfully: " ++