khibino/haskell-relational-record
1
1
Fork 0
mirror of https://github.com/khibino/haskell-relational-record.git synced 2024-12-01 22:02:07 +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 where
import Data.Int (Int8, Int16, Int32, Int64) import Data.Int (Int32, Int64)
import Data.Char (toLower, toUpper) import Data.Char (toLower, toUpper)
import Data.Map (Map, fromList) import Data.Map (Map, fromList)
import qualified Data.Map as Map import qualified Data.Map as Map
@ -54,8 +54,8 @@ mapFromSqlDefault = fromList
, ("DATETIME", [t| LocalTime |]) , ("DATETIME", [t| LocalTime |])
, ("TIME", [t| TimeOfDay |]) , ("TIME", [t| TimeOfDay |])
, ("TIMESTAMP", [t| POSIXTime |]) , ("TIMESTAMP", [t| POSIXTime |])
, ("TINYINT", [t| Int8 |]) , ("TINYINT", [t| Int32 |])
, ("SMALLINT", [t| Int16 |]) , ("SMALLINT", [t| Int32 |])
, ("INT", [t| Int32 |]) , ("INT", [t| Int32 |])
, ("INTEGER", [t| Int32 |]) , ("INTEGER", [t| Int32 |])
, ("BIGINT", [t| Int64 |]) , ("BIGINT", [t| Int64 |])