createTable :: SQLTable -> Din ()
createTable def = do
  logInfo ("Creating table " ++ tabName def)
  h  <- dbHandle
  mb <- io (defineTable h def)
  case mb of
    Just _  -> return ()
    Nothing -> logError ("Failed when creating table: " ++ tabName def)
createTable :: SQLTable -> Din ()
createTable def = do
  logInfo ("Creating table " ++ tabName def)
  h  <- dbHandle
  mb <- io (defineTable h def)
  case mb of
    Just _  -> return ()
    Nothing -> logError ("Failed when creating table: " ++ tabName def)
createTable def = do
  logInfo ("Creating table " ++ tabName def)
  h  <- dbHandle
  mb <- io (defineTable h def)
  case mb of
    Just _  -> return ()
    Nothing -> logError ("Failed when creating table: " ++ tabName def)