Main.hs

   1 module Main where
   2
   3 import           DDNS.DBInfo
   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
   8
   9
  10 main :: IO ()
  11 main = do sqliteConnect "ddns.db" $ \ db ->
  12               dbSpecToDatabase db dbinfo
  13
  14           rawCon <- RAW.connectSqlite3 "ddns.db"
  15           mapM_ (\ sql -> RAW.run rawCon sql []) indexDeclarations
  16           RAW.commit rawCon
  17           RAW.disconnect rawCon