initdb :: IO Connection

initdb = 
    do putStrLn " *** Initializing database system..."
       dbpath <- dbdir
       handleSqlError $
         do c <- connect (dbpath ++ "/media-index-main") ReadWriteMode
            initTables c
            return c
initdb :: IO Connection
initdb = 
    do putStrLn " *** Initializing database system..."
       dbpath <- dbdir
       handleSqlError $
         do c <- connect (dbpath ++ "/media-index-main") ReadWriteMode
            initTables c
            return c
initdb = 
    do putStrLn " *** Initializing database system..."
       dbpath <- dbdir
       handleSqlError $
         do c <- connect (dbpath ++ "/media-index-main") ReadWriteMode
            initTables c
            return c