parseFilter :: String -> (String,[String],String)
parseFilter str
     | id /= "filter" || fl == "" || url == "" = ("", [], "")
     | otherwise = (head flct, tail flct, url)
    where parts        = splitOn ":" str
          (id:fl:urls) = parts
          url          = intercalate ":" urls
          flct         = splitOn " " fl
parseFilter :: String -> (String,[String],String)
parseFilter str
     | id /= "filter" || fl == "" || url == "" = ("", [], "")
     | otherwise = (head flct, tail flct, url)
    where parts        = splitOn ":" str
          (id:fl:urls) = parts
          url          = intercalate ":" urls
          flct         = splitOn " " fl
parseFilter str
     | id /= "filter" || fl == "" || url == "" = ("", [], "")
     | otherwise = (head flct, tail flct, url)
    where parts        = splitOn ":" str
          (id:fl:urls) = parts
          url          = intercalate ":" urls
          flct         = splitOn " " fl