Fix: (--date-type-p) Handle ranges

I meant to do this in c5599a6, but I omitted the range type symbol
when I rewrote the selector and functions.  This should work now.

Thanks to @codygman, @swflint, and @vikasrawal.

org-ql.el

@@ -735,7 +735,7 @@ like one returned by `date-to-day'."
                                   (string (date-to-day (concat target-date " 00:00")))
                                   (integer target-date))))
          (pcase (org-element-property :type date-element)
-           ((or 'active 'inactive)
+           ((or 'active 'inactive 'active-range 'inactive-range)
             (funcall comparator
                      (org-time-string-to-absolute
                       (org-element-timestamp-interpreter date-element 'ignore))