#441 serverp.hs: XmlPusherの枠組みに当てはめた