fix quit fn for remote driver (#314)

clj-commons · Aug 25, 2020 · f041d19 · f041d19
1 parent aea0feb
commit f041d19
Showing 1 changed file with 6 additions and 4 deletions.
diff --git a/src/etaoin/api.clj b/src/etaoin/api.clj
@@ -3143,10 +3143,12 @@
 (defn quit
   "Closes the current session and stops the driver."
   [driver]
-  (try
-    (disconnect-driver driver)
-    (finally
-      (stop-driver driver))))
+  (let [process (:process @driver)]
+    (try
+      (disconnect-driver driver)
+      (finally
+        (when process
+          (stop-driver driver))))))
 
 (def firefox
   "Launches Firefox driver. A shortcut for `boot-driver`."