relational-schemas 0.1.0.0 → 0.1.0.1

raw patch · 2 files changed

+4/−4 lines, 2 filesdep ~relational-query

Dependency ranges changed: relational-query

Files

• relational-schemas.cabal +1/−1
• src/Database/Relational/Schema/SQLServer.hs +3/−3

@@ -1,5 +1,5 @@ name:                relational-schemas-version:             0.1.0.0+version:             0.1.0.1 synopsis:            RDBMSs' schema templates for relational-query description:         This package contains some RDBMSs' schema structure definitions.                      Supported RDBMS schemas are below:

@@ -20,7 +20,7 @@ import Database.Record.Instances () import Database.Relational.Query (Query, Relation, PlaceHolders, Projection, Flat,                                   (!), (.=.), (><), asc, relationalQuery, just, placeholder',-                                  query, relation', unsafeShowSql, unsafeShowSqlProjection,+                                  query, relation', unsafeShowSql,                                   unsafeProjectSql, wheres) import Database.Relational.Schema.SQLServerSyscat.Columns import Database.Relational.Schema.SQLServerSyscat.Indexes@@ -99,11 +99,11 @@     wheres $ cols ! Columns.userTypeId' .=. typs ! Types.userTypeId'     wheres $ cols ! Columns.objectId'   .=. oid     asc $ cols ! Columns.columnId'-    return   (params, cols >< typs >< sqlsrvSchemaName (typs ! Types.schemaId'))+    return   (params, cols >< typs >< sqlsrvSchemaName (typs ! Types.schemaId' :: Projection Flat Int32))   where     (params, oid) = sqlsrvOidPlaceHolder     sqlsrvSchemaName i = unsafeProjectSql $-        "SCHEMA_NAME(" ++ unsafeShowSqlProjection i ++ ")"+        "SCHEMA_NAME(" ++ unsafeShowSql i ++ ")"  columnTypeQuerySQL :: Query (String, String) ((Columns, Types), String) columnTypeQuerySQL =  relationalQuery columnTypeRelation