persistent-mysql 2.0.1 → 2.0.3

raw patch · 2 files changed

+7/−7 lines, 2 filesdep ~persistentPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: persistent

API changes (from Hackage documentation)

Files

• Database/Persist/MySQL.hs +5/−5
• persistent-mysql.cabal +2/−2

@@ -284,8 +284,8 @@       -- Nothing found, create everything       ([], [], _) -> do         let idtxt = case entityPrimary val of-                Just pdef -> concat [" PRIMARY KEY (", intercalate "," $ map (escapeDBName . fieldDB) $ primaryFields pdef, ")"]-                Nothing   -> concat [escapeDBName $ entityID val, " BIGINT NOT NULL AUTO_INCREMENT PRIMARY KEY"]+                Just pdef -> concat [" PRIMARY KEY (", intercalate "," $ map (escapeDBName . fieldDB) $ compositeFields pdef, ")"]+                Nothing   -> concat [escapeDBName $ fieldDB $ entityId val, " BIGINT NOT NULL AUTO_INCREMENT PRIMARY KEY"]          let addTable = AddTable $ concat                             -- Lower case e: see Database.Persist.Sql.Migration@@ -336,7 +336,7 @@             return (fieldType fieldDef)  --- | Helper for 'AddRefence' that finds out the 'entityID'.+-- | Helper for 'AddRefence' that finds out the 'entityId'. addReference :: [EntityDef] -> DBName -> DBName -> DBName -> AlterColumn addReference allDefs fkeyname reftable cname = AddReference reftable fkeyname [cname] [id_]      where@@ -344,7 +344,7 @@                          ++ " (allDefs = " ++ show allDefs ++ ")")                   id $ do                     entDef <- find ((== reftable) . entityDB) allDefs-                    return (entityID entDef)+                    return (fieldDB $ entityId entDef)  data AlterColumn = Change Column                  | Add' Column@@ -422,7 +422,7 @@   where     vals = [ PersistText $ pack $ MySQL.connectDatabase connectInfo            , PersistText $ unDBName $ entityDB def-           , PersistText $ unDBName $ entityID def ]+           , PersistText $ unDBName $ fieldDB $ entityId def ]      helperClmns = CL.mapM getIt =$ CL.consume         where

@@ -1,5 +1,5 @@ name:            persistent-mysql-version:         2.0.1+version:         2.0.3 license:         MIT license-file:    LICENSE author:          Felipe Lessa <felipe.lessa@gmail.com>, Michael Snoyman@@ -30,7 +30,7 @@                    , mysql-simple          >= 0.2.2.3  && < 0.3                    , mysql                 >= 0.1.1.3  && < 0.2                    , blaze-builder-                   , persistent            >= 2.0.1    && < 2.1+                   , persistent            >= 2.0.3    && < 2.1                    , containers            >= 0.2                    , bytestring            >= 0.9                    , text                  >= 0.11.0.6