rss 3000.2.0.2 → 3000.2.0.3

raw patch · 2 files changed

+17/−17 lines, 2 filesdep ~HaXmldep ~network

Dependency ranges changed: HaXml, network

Files

• Text/RSS.hs +14/−14
• rss.cabal +3/−3

@@ -70,7 +70,7 @@   data RSS = RSS Title Link Description [ChannelElem] [Item]-	 deriving Show+         deriving Show  type Item = [ItemElem] @@ -109,19 +109,19 @@                  | TextInput Title Description InputName Link                  | SkipHours [Hour]                  | SkipDays [Weekday]-		   deriving Show+                   deriving Show  data ItemElem = Title Title-	      | Link Link-	      | Description Description-	      | Author Email-	      | Category (Maybe Domain) String+              | Link Link+              | Description Description+              | Author Email+              | Category (Maybe Domain) String               | Comments URI-	      | Enclosure URI Int MIME_Type-	      | Guid Bool String-	      | PubDate UTCTime-	      | Source URI Title-		deriving (Show)+              | Enclosure URI Int MIME_Type+              | Guid Bool String+              | PubDate UTCTime+              | Source URI Title+                deriving (Show)  -- | A day of the week. data Weekday = Sunday   | Monday | Tuesday | Wednesday@@ -134,10 +134,10 @@     mkElemAttr "rss" [("version",literal "2.0")]                      [mkElem "channel" ([mkTitle title,                                          mkLink link,-				         mkDescription description,+                                         mkDescription description,                                          mkDocs]                                         ++ map mkChannelElem celems-				        ++ map mkItem items)]+                                        ++ map mkItem items)]  -- | Render XML as a string. showXML :: CFilter () -> String@@ -223,7 +223,7 @@ mkItemElem (Enclosure uri len mtype) =     mkElemAttr "enclosure" [("url", literal (show uri)),                             ("length", literal (show len)),-			    ("type", literal (mtype))]+                            ("type", literal (mtype))]                            [] mkItemElem (Guid perm s) = mkElemAttr "guid" attrs [ literal s ]     where attrs = if perm then [("isPermaLink", literal "true")] else []

@@ -1,5 +1,5 @@ Name: rss-Version: 3000.2.0.2+Version: 3000.2.0.3 Cabal-version: >=1.6 Build-type: Simple Copyright: Jeremy Shaw 2004, Bjorn Bringert 2004-2006@@ -20,8 +20,8 @@  Library   build-depends: base       >= 3      && < 5-               , network    >= 2.0    && < 2.5-               , HaXml      >= 1.19.2 && < 1.24+               , network    >= 2.0    && < 2.6+               , HaXml      >= 1.24                , time       >= 1.1.2  && < 1.5                , old-locale >= 1.0    && < 1.1   Exposed-Modules: Text.RSS