mirror of
https://github.com/codedownio/sandwich.git
synced 2024-10-26 20:49:20 +03:00
Tweaks
This commit is contained in:
parent
852f25be69
commit
34ce940ab5
@ -57,7 +57,9 @@ import UnliftIO.MVar
|
||||
|
||||
|
||||
-- | This is the main 'introduce' method for creating a WebDriver.
|
||||
introduceWebDriver :: (BaseMonadContext m context) => WdOptions -> SpecFree (LabelValue "webdriver" WebDriver :> context) m () -> SpecFree context m ()
|
||||
introduceWebDriver :: (
|
||||
BaseMonadContext m context
|
||||
) => WdOptions -> SpecFree (LabelValue "webdriver" WebDriver :> context) m () -> SpecFree context m ()
|
||||
introduceWebDriver wdOptions = introduce "Introduce WebDriver session" webdriver (allocateWebDriver wdOptions) cleanupWebDriver
|
||||
|
||||
-- | Same as introduceWebDriver, but merges command line options into the 'WdOptions'.
|
||||
|
@ -42,7 +42,10 @@ closeAllSessions :: (HasCallStack, MonadLogger m, MonadUnliftIO m) => WebDriver
|
||||
closeAllSessions = closeAllSessionsExcept []
|
||||
|
||||
-- | Close the current session
|
||||
closeCurrentSession :: (HasCallStack, MonadLogger m, MonadUnliftIO m, MonadReader context m, HasLabel context "webdriver" WebDriver, HasLabel context "webdriverSession" WebDriverSession) => m ()
|
||||
closeCurrentSession :: (
|
||||
HasCallStack, MonadLogger m, MonadUnliftIO m
|
||||
, MonadReader context m, HasLabel context "webdriver" WebDriver, HasLabel context "webdriverSession" WebDriverSession
|
||||
) => m ()
|
||||
closeCurrentSession = do
|
||||
webDriver <- getContext webdriver
|
||||
(session, _) <- getContext webdriverSession
|
||||
|
Loading…
Reference in New Issue
Block a user