-- database operations
module Main(main) where

import TerraHS

host = "localhost";
dbname =  "anari_olga";
user = "root";
password = "root";

layername ="anari_85_2_1";
layername2 ="anari_88_2";



main:: IO()
main = do

	-- open a database connection
	db <- open (TeMySQL host user password dbname)
	
	-- load a geo-objcets set from a layer
	go <- (retrieve db layername)::(IO [TeGeoObject]) 
	
	-- save geo-object in a new layer
	store db "layer_out" go
	
	-- close connection
	close db
	print "rodou"