     (setq id (fstar--read-string "Show definition of%s: " (fstar--fqn-at-point))))
   (fstar-subp--query (fstar-subp--positionless-lookup-query id
                   '(type defined-at documentation definition))
-                (fstar-subp--lookup-wrapper
-                 #'fstar--doc-at-point-continuation (point))))
+                (fstar-subp--lookup-wrapper (point)
+                  #'fstar--doc-at-point-continuation)))
 
 ;;; ;; ;; Insert a match
 

             (retv (fstar-subp--query-and-wait query 0.01)))
        (pcase retv
          (`(t . (,status ,results))
           (funcall (fstar-subp--lookup-wrapper
                     (apply-partially #'fstar--eldoc-continuation #'identity)
                     (point))
                    status results))
          (`(needs-callback . ,_)
           (setf (cdr retv)
                 (fstar-subp--lookup-wrapper
                  (apply-partially #'fstar--eldoc-continuation #'eldoc-message)
                  (point)))
           nil))))))

(defun fstar--eldoc-truncate-message (fn &rest args)

  (when (= (quick-peek-hide) 0)
    (fstar-subp--query (fstar-subp--positional-lookup-query (point)
                    '(type documentation))
                  (fstar-subp--lookup-wrapper (point)
                    #'fstar--quick-peek-continuation))))

;;; ;; ;; Company

