module Main where

import           DDNS.DBInfo
import qualified Database.HDBC as RAW
import qualified Database.HDBC.Sqlite3 as RAW
import           Database.HaskellDB.DBSpec
import           Database.HaskellDB.HDBC.SQLite3


main :: IO ()
main = do sqliteConnect "ddns.db" $ \ db ->
              dbSpecToDatabase db dbinfo

          rawCon <- RAW.connectSqlite3 "ddns.db"
          mapM_ (\ sql -> RAW.run rawCon sql []) indexDeclarations
          RAW.commit rawCon
          RAW.disconnect rawCon