feed 0.3.5 → 0.3.6

raw patch · 2 files changed

+7/−3 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• Text/Atom/Feed/Import.hs +6/−2
• feed.cabal +1/−1

@@ -12,7 +12,8 @@  module Text.Atom.Feed.Import where -import Data.Maybe (listToMaybe, mapMaybe)+import Data.Maybe (listToMaybe, mapMaybe, isJust)+import Data.List  (find) import Control.Monad (guard)  import Text.Atom.Feed@@ -38,7 +39,10 @@ pQLeaf x es    = strContent `fmap` pQNode x es  pAttr        :: String -> XML.Element -> Maybe String-pAttr x e     = lookup (atomName x) [ (k,v) | Attr k v <- elAttribs e ]+pAttr x e     = fmap snd $ find sameAttr [ (k,v) | Attr k v <- elAttribs e ]+  where+    ax = atomName x+    sameAttr (k,_) = k == ax ||  (not (isJust (qURI k)) && qName k == x)  pAttrs       :: String -> XML.Element -> [String] pAttrs x e    = [ v | Attr k v <- elAttribs e, k == atomName x ]

@@ -1,5 +1,5 @@ Name:               feed-Version:            0.3.5+Version:            0.3.6 License:            BSD3 License-file:       LICENSE Category:           Text