From: Michael Orlitzky Date: Mon, 13 Jan 2014 17:57:49 +0000 (-0500) Subject: Make the text of a news URL optional. X-Git-Tag: 0.0.1~76 X-Git-Url: https://gitweb.michael.orlitzky.com/?a=commitdiff_plain;h=2069d0a786bf2c418f27574f5384eae39527d03f;p=dead%2Fhtsn-import.git Make the text of a news URL optional. --- diff --git a/src/TSN/XML/News.hs b/src/TSN/XML/News.hs index a2421e9..49ff8b7 100644 --- a/src/TSN/XML/News.hs +++ b/src/TSN/XML/News.hs @@ -39,6 +39,7 @@ import Text.XML.HXT.Core ( xpOption, xpPair, xpText, + xpText0, xpTriple, xpWrap ) @@ -270,7 +271,7 @@ pickle_message = pickle_msg_id (xpElem "category" xpText) (xpElem "sport" xpText) - (xpElem "url" xpText) + (xpElem "url" xpText0) (xpList pickle_news_team) (xpList pickle_location) (xpElem "SMS" xpText)