File: SpecificDB.hs

package info (click to toggle)
hdbc-sqlite3 2.3.3.1-12
  • links: PTS, VCS
  • area: main
  • in suites: sid
  • size: 176 kB
  • sloc: haskell: 701; ansic: 146; makefile: 32
file content (14 lines) | stat: -rw-r--r-- 362 bytes parent folder | download | duplicates (9) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
module SpecificDB where
import Database.HDBC
import Database.HDBC.Sqlite3
import Test.HUnit

connectDB = 
    handleSqlError (connectSqlite3 "testtmp.sql3")

dateTimeTypeOfSqlValue :: SqlValue -> String
dateTimeTypeOfSqlValue (SqlPOSIXTime _) = "TEXT"
dateTimeTypeOfSqlValue (SqlEpochTime _) = "INTEGER"
dateTimeTypeOfSqlValue _ = "TEXT"

supportsFracTime = True