filterTag :: [VaultEntry] -> String -> [VaultEntry]
filterTag entries tag =
    let anyPred = tagPred tag
    in filter (any anyPred . tags) entries
filterTag :: [VaultEntry] -> String -> [VaultEntry]
filterTag entries tag =
    let anyPred = tagPred tag
    in filter (any anyPred . tags) entries
filterTag entries tag =
    let anyPred = tagPred tag
    in filter (any anyPred . tags) entries