stable utf8 lib, fix pattern match warning

Author: micmarsh

Text/Feed/Constructor.hs

@@ -134,7 +134,9 @@ withFeedItems is fe =
       Feed.Types.RSSFeed  f -> Feed.Types.RSSFeed
           f{rssChannel=(rssChannel f){rssItems=[]}}
       Feed.Types.RSS1Feed f -> Feed.Types.RSS1Feed
-          f{feedItems=[]})
+          f{feedItems=[]}
+      Feed.Types.XMLFeed xml -> Feed.Types.XMLFeed
+          xml{elContent=[]})
    is
 
 newItem :: FeedKind -> Feed.Types.Item

feed.cabal

@@ -46,6 +46,5 @@ library
                      old-locale >= 1,
                      old-time   >= 1,
                      xml >= 1.2.6,
-                     utf8-string,
+                     utf8-string == 0.3,
                      time
-