khibino/haskell-relational-record
1
1
Fork 0
mirror of https://github.com/khibino/haskell-relational-record.git synced 2024-11-29 14:45:51 +03:00
Code Issues Projects Releases Wiki Activity

Fix 'No instance for (Convertible a SqlValue)'

Browse Source
This commit is contained in:
krdlab 2014-02-21 01:20:59 +09:00
parent e3a2f80bfd
commit 62eb333acf
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
relational-schemas/src/Database/Relational/Schema/MySQL.hs
View File

@ -8,7 +8,7 @@ module Database.Relational.Schema.MySQL
)
where
import Data.Int (Int8, Int16, Int32, Int64)
import Data.Int (Int32, Int64)
import Data.Char (toLower, toUpper)
import Data.Map (Map, fromList)
import qualified Data.Map as Map
@ -54,8 +54,8 @@ mapFromSqlDefault = fromList
, ("DATETIME", [t| LocalTime |])
, ("TIME", [t| TimeOfDay |])
, ("TIMESTAMP", [t| POSIXTime |])
, ("TINYINT", [t| Int8 |])
, ("SMALLINT", [t| Int16 |])
, ("TINYINT", [t| Int32 |])
, ("SMALLINT", [t| Int32 |])
, ("INT", [t| Int32 |])
, ("INTEGER", [t| Int32 |])
, ("BIGINT", [t| Int64 |])