stable utf8 lib, fix pattern match warning

sof · Mar 7, 2015 · 84708c8 · 84708c8
1 parent 74891cf
commit 84708c8
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 3 deletions.
diff --git a/Text/Feed/Constructor.hs b/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

diff --git a/feed.cabal b/feed.cabal
@@ -46,6 +46,5 @@ library
                      old-locale >= 1,
                      old-time   >= 1,
                      xml >= 1.2.6,
-                     utf8-string,
+                     utf8-string == 0.3,
                      time
-