#481 HttpPullTlsCl.hs: XmlNode -> Maybe Intを引数として取るようにした