Main.hs --> ServerMain.hs

[blackboard-dns.git] / Main.hs

diff --git a/Main.hs b/Main.hs
deleted file mode 100644 (file)
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