khibino/haskell-relational-record
1
1
Fork 0
mirror of https://github.com/khibino/haskell-relational-record.git synced 2024-11-29 06:37:03 +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.Int (Int8, Int16, Int32, Int64)
import Data.Map (Map)
import Data.Time (Day, LocalTime)
import Database.Record.Instances ()
import Database.Relational.Query (Query)
import Database.Relational.Query.Type (unsafeTypedQuery)
@ -48,6 +49,9 @@ mapFromSqlDefault =
, ("REAL", [t|Double|])
, ("DOUBLE", [t|Double|])
, ("FLOAT", [t|Float|])
, ("DATE", [t|Day|])
, ("DATETIME", [t|LocalTime|])
]
normalizeColumn :: String -> String