-- ---------------------------------------------------------------------
--	 xindice_read.hs
--
--					Jun/29/2010
--
-- ---------------------------------------------------------------------
import Network.Curl

-- ---------------------------------------------------------------------
main :: IO ()
main = do
	putStrLn "*** 開始 ***\n"
	let uri = "http://cdbd026:8888/xindice/db/cities/cities"
	(_,xs)  <- curlGetString uri []
	putStr xs
	putStrLn "*** 終了 ***"
-- ---------------------------------------------------------------------