4 import qualified Database.HDBC as RAW
5 import qualified Database.HDBC.Sqlite3 as RAW
6 import Database.HaskellDB.DBSpec
7 import Database.HaskellDB.HDBC.SQLite3
11 main = do sqliteConnect "ddns.db" $ \ db ->
12 dbSpecToDatabase db dbinfo
14 rawCon <- RAW.connectSqlite3 "ddns.db"
15 mapM_ (\ sql -> RAW.run rawCon sql []) indexDeclarations