#442 serverps.hs: XmlPushの枠組みに当てはめた