X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=blackboard-dns.git;a=blobdiff_plain;f=Main.hs;fp=Main.hs;h=163d01e41dedaff3fe660440c98401c0b705018e;hp=d82a4bd93b7e75a6ff9845150450ae0709b93086;hb=f46e263327d20c700179b2d3a5896be82d3b4aca;hpb=23aa8a3221ebacf5891def22006b9850497437de

diff --git a/Main.hs b/Main.hs
index d82a4bd..163d01e 100644
--- a/Main.hs
+++ b/Main.hs
@@ -1,4 +1,17 @@
 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 = return ()
+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