This repository was archived by the owner on Jan 17, 2020. It is now read-only.
File tree Expand file tree Collapse file tree 1 file changed +0
-18
lines changed Expand file tree Collapse file tree 1 file changed +0
-18
lines changed Original file line number Diff line number Diff line change @@ -59,23 +59,6 @@ contra check = do
59
59
(const $ pure unit)
60
60
(const $ throwError $ error " check successed in contra" ) eR
61
61
62
- -- | takes value and repeatedly tries to evaluate it for timeout of ms (second arg)
63
- -- | if it evaluates w/o error returns its value
64
- -- | else throws error
65
- waiter :: forall e o a . Selenium e o a -> Int -> Selenium e o a
66
- waiter getter timeout = do
67
- wait (checker $ (isRight <$> attempt getter)) timeout
68
- getter
69
-
70
- waitExistentCss :: forall e o . String -> Int -> Selenium e o Element
71
- waitExistentCss css timeout =
72
- waiter (getElementByCss css) timeout
73
-
74
- waitNotExistentCss :: forall e o . String -> Int -> Selenium e o Unit
75
- waitNotExistentCss css timeout =
76
- waiter (checkNotExistsByCss css) timeout
77
-
78
-
79
62
-- | Repeatedly tries to evaluate check (third arg) for timeout ms (first arg)
80
63
-- | finishes when check evaluates to true.
81
64
-- | If there is an error during check or it constantly returns `false`
@@ -87,6 +70,5 @@ await timeout check = do
87
70
Left _ -> throwError $ error " await has no success"
88
71
Right _ -> pure unit
89
72
90
-
91
73
awaitUrlChanged :: forall e o . String -> Selenium e o Boolean
92
74
awaitUrlChanged oldURL = checker $ (oldURL /=) <$> getCurrentUrl
You can’t perform that action at this time.
0 commit comments