persistable-record 0.6.0.3 → 0.6.0.4

raw patch · 2 files changed

+14/−11 lines, 2 filesdep ~names-th

Dependency ranges changed: names-th

Files

• persistable-record.cabal +3/−2
• src/Database/Record/TH.hs +11/−9

@@ -1,5 +1,5 @@ name:                persistable-record-version:             0.6.0.3+version:             0.6.0.4 synopsis:            Binding between SQL database values and haskell records. description:         This package contiains types to represent table constraints and                      interfaces to bind between SQL database values and Haskell records.@@ -12,7 +12,8 @@ category:            Database build-type:          Simple cabal-version:       >=1.10-tested-with:           GHC == 8.2.1+tested-with:           GHC == 8.4.1, GHC == 8.4.2, GHC == 8.4.3+                     , GHC == 8.2.1, GHC == 8.2.2                      , GHC == 8.0.1, GHC == 8.0.2                      , GHC == 7.10.1, GHC == 7.10.2, GHC == 7.10.3                      , GHC == 7.8.1, GHC == 7.8.2, GHC == 7.8.3, GHC == 7.8.4

@@ -51,7 +51,7 @@ import Data.Array (Array) import Language.Haskell.TH.Name.CamelCase   (ConName(conName), VarName(varName),-   conCamelcaseName, varCamelcaseName, varNameWithPrefix,+   conCamelcaseName, varCamelcaseName,    toTypeCon, toDataCon, ) import Language.Haskell.TH.Lib.Extra (integralE, simpleValD, reportWarning) import Language.Haskell.TH.Compat.Data (dataD')@@ -92,15 +92,17 @@   show = const "<nameConfig>"  -- | Default implementation of 'NameConfig' type.---   To change how the generated record type and its columns are named,+--   To change how generated record types and their columns are named, --   use record update syntax: ----- > defaultNameConfig--- >   { recordTypeName = \schema table -> varCamelcaseName $ schema ++ "_" ++ table--- >     ^ append the table name after the schema name. e.g. "schemaTable"--- >   , columnName = \table column -> varCamelcaseName $ table ++ "_" ++ column--- >     ^ append the column name after the table name. e.g. "tableColumn"--- >   }+-- @+--   defaultNameConfig+--     { recordTypeName = \\schema table -> 'varCamelcaseName' $ schema ++ "_" ++ table+--     -- ^ append the table name after the schema name. e.g. "SchemaTable"+--     , columnName = \\table column -> 'varCamelcaseName' $ table ++ "_" ++ column+--     -- ^ append the column name after the table name. e.g. "tableColumn"+--     }+-- @ defaultNameConfig :: NameConfig defaultNameConfig =   NameConfig@@ -118,7 +120,7 @@ -- | Variable expression of record column offset array. columnOffsetsVarNameDefault :: Name    -- ^ Table type name                             -> VarName -- ^ Result expression variable name-columnOffsetsVarNameDefault =  (`varNameWithPrefix` "columnOffsets") . nameBase+columnOffsetsVarNameDefault = varCamelcaseName . ("column_offsets_" ++) . nameBase  -- | Template of 'HasColumnConstraint' instance. defineHasColumnConstraintInstance :: TypeQ   -- ^ Type which represent constraint type