relational-schemas 0.0.1.0 → 0.0.1.2

raw patch · 2 files changed

+6/−9 lines, 2 files

Files

• relational-schemas.cabal +2/−2
• src/Database/Relational/Schema/SQLServer.hs +4/−7

@@ -1,5 +1,5 @@ name:                relational-schemas-version:             0.0.1.0+version:             0.0.1.2 synopsis:            RDBMSs' schema templates for relational-query description:         This package contains some RDBMSs' schema structure definitions.                      Supported RDBMS schemas are below:@@ -9,7 +9,7 @@                      - SQLite3                      - Oracle                      - MySQL-homepage:            http://twitter.com/khibino+homepage:            http://khibino.github.io/haskell-relational-record/ license:             BSD3 license-file:        LICENSE author:              Kei Hibino, Shohei Murayama, Shohei Yasutake, Sho KURODA

@@ -14,7 +14,7 @@ import Control.Applicative ((<|>)) import Data.ByteString (ByteString) import Data.Char (toLower)-import Data.Int (Int32, Int64)+import Data.Int (Int8, Int16, Int32, Int64) import Data.Map (Map) import Data.Time (LocalTime, Day, TimeOfDay) import Database.Record.Instances ()@@ -32,21 +32,18 @@  mapFromSqlDefault :: Map String TypeQ mapFromSqlDefault =-    Map.fromList [ ("image",         [t|ByteString|])-                 , ("text",          [t|ByteString|])+    Map.fromList [ ("text",          [t|ByteString|])                  , ("date",          [t|Day|])                  , ("time",          [t|TimeOfDay|])-                 , ("tinyint",       [t|Int32|])-                 , ("smallint",      [t|Int32|])+                 , ("tinyint",       [t|Int8|])+                 , ("smallint",      [t|Int16|])                  , ("int",           [t|Int32|])-                 , ("smalldatetime", [t|LocalTime|])                  , ("real",          [t|Double|])                  , ("datetime",      [t|LocalTime|])                  , ("float",         [t|Double|])                  , ("ntext",         [t|String|])                  , ("bit",           [t|Char|])                  , ("bigint",        [t|Int64|])-                 , ("varbinary",     [t|String|])                  , ("varchar",       [t|String|])                  , ("binary",        [t|ByteString|])                  , ("char",          [t|String|])