parseExec :: String -> (String,[String])
parseExec str
     | length parts /= 2 || id /= "exec" || ex == "" = ("", [])
     | otherwise = (head exct, tail exct)
    where parts      = splitOn ":" str
          (id:ex:[]) = parts
          exct       = splitOn " " ex

-- Downloading a feed ------------------------------------------------
parseExec :: String -> (String,[String])
parseExec str
     | length parts /= 2 || id /= "exec" || ex == "" = ("", [])
     | otherwise = (head exct, tail exct)
    where parts      = splitOn ":" str
          (id:ex:[]) = parts
          exct       = splitOn " " ex

-- Downloading a feed ------------------------------------------------
parseExec str
     | length parts /= 2 || id /= "exec" || ex == "" = ("", [])
     | otherwise = (head exct, tail exct)
    where parts      = splitOn ":" str
          (id:ex:[]) = parts
          exct       = splitOn " " ex

-- Downloading a feed ------------------------------------------------