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

Extend default type mapping of SQLite3.

Browse Source
This commit is contained in:
Kei Hibino 2016-05-19 09:35:43 +09:00
parent 6e02da1a48
commit 7384392956
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
relational-schemas/src/Database/Relational/Schema/SQLite3.hs
View File

@ -14,6 +14,7 @@ import Data.ByteString (ByteString)
import Data.Char (toLower, toUpper) import Data.Char (toLower, toUpper)
import Data.Int (Int8, Int16, Int32, Int64) import Data.Int (Int8, Int16, Int32, Int64)
import Data.Map (Map) import Data.Map (Map)
import Data.Time (Day, LocalTime)
import Database.Record.Instances () import Database.Record.Instances ()
import Database.Relational.Query (Query) import Database.Relational.Query (Query)
import Database.Relational.Query.Type (unsafeTypedQuery) import Database.Relational.Query.Type (unsafeTypedQuery)
@ -48,6 +49,9 @@ mapFromSqlDefault =
, ("REAL", [t|Double|]) , ("REAL", [t|Double|])
, ("DOUBLE", [t|Double|]) , ("DOUBLE", [t|Double|])
, ("FLOAT", [t|Float|]) , ("FLOAT", [t|Float|])
, ("DATE", [t|Day|])
, ("DATETIME", [t|LocalTime|])
] ]
normalizeColumn :: String -> String normalizeColumn :: String -> String