X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=blackboard-dns.git;a=blobdiff_plain;f=Main.hs;fp=Main.hs;h=0000000000000000000000000000000000000000;hp=163d01e41dedaff3fe660440c98401c0b705018e;hb=c0afc68ff35fc668809c488fc55d14b4dbcb863c;hpb=9683501d29db20b736e459e9844368ac433a4db6

diff --git a/Main.hs b/Main.hs
deleted file mode 100644
index 163d01e..0000000
--- a/Main.hs
+++ /dev/null
@@ -1,17 +0,0 @@
-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