parseItem v = RSSItem (getItemTitle       v)
                      (getItemLink        v)
                      Nothing
                      (getItemDescription v)
                      (getItemAuthor      v)
                      (getItemId v >>= (\(_,g) -> Just g))
                      (getItemPublishDate v >>= (>>= Just . utcTimeToEpochTime))
                      (getItemEnclosure v >>= (\(e,_,_) -> Just e))
                      (getItemEnclosure v >>= (\(_,e,_) -> e))
                      Nothing
                      Nothing
    where utcTimeToEpochTime :: UTCTime -> Integer
          utcTimeToEpochTime = convert

-- Updating a feed ---------------------------------------------------
parseItem v = RSSItem (getItemTitle       v)
                      (getItemLink        v)
                      Nothing
                      (getItemDescription v)
                      (getItemAuthor      v)
                      (getItemId v >>= (\(_,g) -> Just g))
                      (getItemPublishDate v >>= (>>= Just . utcTimeToEpochTime))
                      (getItemEnclosure v >>= (\(e,_,_) -> Just e))
                      (getItemEnclosure v >>= (\(_,e,_) -> e))
                      Nothing
                      Nothing
    where utcTimeToEpochTime :: UTCTime -> Integer
          utcTimeToEpochTime = convert

-- Updating a feed ---------------------------------------------------
parseItem v = RSSItem (getItemTitle       v)
                      (getItemLink        v)
                      Nothing
                      (getItemDescription v)
                      (getItemAuthor      v)
                      (getItemId v >>= (\(_,g) -> Just g))
                      (getItemPublishDate v >>= (>>= Just . utcTimeToEpochTime))
                      (getItemEnclosure v >>= (\(e,_,_) -> Just e))
                      (getItemEnclosure v >>= (\(_,e,_) -> e))
                      Nothing
                      Nothing
    where utcTimeToEpochTime :: UTCTime -> Integer
          utcTimeToEpochTime = convert

-- Updating a feed ---------------------------------------------------