Merge pull request #10 from slamdata/fix/chrome75

added a variant of posting
slamdata · Aug 2, 2019 · 3e02612 · 3e02612
2 parents 1fb7ef4 + c826d39
commit 3e02612
Showing 1 changed file with 12 additions and 3 deletions.
diff --git a/src/Lunapark/API.purs b/src/Lunapark/API.purs
@@ -494,10 +494,16 @@ handleLunapark inp = case _ of
         res ← get (inSession : inElement : LP.Enabled : Nil)
         map cont $ throwLeft $ J.decodeJson res
       ClickEl next → do
-        _ ← post_ (inSession : inElement : LP.Click : Nil)
+        _ ← tryAndCache "chromedriver75 update clickElement"
+          [ post_ (inSession : inElement : LP.Click : Nil)
+          , post (inSession : inElement : LP.Click : Nil) $ LT.encodeElement el
+          ]
         pure next
       ClearEl next → do
-        _ ← post_ (inSession : inElement : LP.Clear : Nil)
+        _ ← tryAndCache "chromedriver75 update clearElement"
+          [ post_ (inSession : inElement : LP.Clear : Nil)
+          , post (inSession : inElement : LP.Click : Nil) $ LT.encodeElement el
+          ]
         pure next
       SendKeysEl txt next → do
         _ ← tryAndCache "send keys chromedriver hack"
@@ -517,7 +523,10 @@ handleLunapark inp = case _ of
           ]
         map cont $ throwLeft $ J.decodeJson res
       Submit next → do
-        _ ← post_ (inSession : inElement : LP.Submit : Nil)
+        _ ← tryAndCache "chromedriver75 update submit form"
+          [ post_ (inSession : inElement : LP.Submit : Nil)
+          , post (inSession: inElement : LP.Submit : Nil) $ LT.encodeElement el
+          ]
         pure next
 
   where