findType (RSSFeed (Just url) _ _ _ _) = Just $ typeFromUrl url
    where typeFromUrl :: String -> FDType
          typeFromUrl ('f':'i':'l':'t':'e':'r':_) = Filter
          typeFromUrl ('e':'x':'e':'c':_)         = Exec
          typeFromUrl _                           = Plain
findType (RSSFeed (Just url) _ _ _ _) = Just $ typeFromUrl url
    where typeFromUrl :: String -> FDType
          typeFromUrl ('f':'i':'l':'t':'e':'r':_) = Filter
          typeFromUrl ('e':'x':'e':'c':_)         = Exec
          typeFromUrl _                           = Plain
findType (RSSFeed (Just url) _ _ _ _) = Just $ typeFromUrl url
    where typeFromUrl :: String -> FDType
          typeFromUrl ('f':'i':'l':'t':'e':'r':_) = Filter
          typeFromUrl ('e':'x':'e':'c':_)         = Exec
          typeFromUrl _                           = Plain