diff --git a/pacman-zfs-snapshot.sh b/pacman-zfs-snapshot.sh
index d923ba4..8d46284 100755
--- a/pacman-zfs-snapshot.sh
+++ b/pacman-zfs-snapshot.sh
@@ -203,6 +203,15 @@ function do_snaps () {
     done
 }
 
+function get_snaps_in_cur_sev () {
+    local dataset_to_query
+    dataset_to_query="${1:?}"
+    snap_list="$(zfs list -H -o 'name' -t snapshot "${dataset_to_query}")"
+    snaps_done_by_us="$(grep -Pi -- '@'"${snap_name_prefix}${snap_field_separator}" <<<"${snap_list}")"
+    snaps_in_cur_sev="$(grep -Pi -- "${snap_field_separator}"'sev:'"${severity}${snap_field_separator}" <<<"${snaps_done_by_us}")"
+    printf -- '%s' "${snaps_in_cur_sev}"
+}
+
 function main () {
     local pkgs_in_transaction
     pkgs_in_transaction=("${@}")