icon

racket-webview-downloader.rkt

@@ -12,6 +12,7 @@
          )
 
 (provide download-racket-webview-qt
+         racket-webview-qt-clear-download!
          racket-webview-qt-version
          racket-webview-qt-directory
          racket-webview-qt-is-available?
@@ -120,6 +121,11 @@
       (file->value version-file)
       #f))
 
+
+(define (racket-webview-qt-clear-download!)
+  (when (file-exists? version-file)
+    (delete-file version-file)))
+
 (define (racket-webview-qt-is-downloadable?)
   (with-handlers ([exn:fail? (λ (e) #f)])
     (let ((in (download-port rkt-download-url)))