codedownio/sandwich
1
1
Fork 0
mirror of https://github.com/codedownio/sandwich.git synced 2024-10-26 20:49:20 +03:00
Code Issues Projects Releases Wiki Activity

Tweaks

Browse Source
This commit is contained in:
Tom McLaughlin 2024-05-14 02:53:05 -07:00
parent 852f25be69
commit 34ce940ab5
2 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
sandwich-webdriver/src/Test/Sandwich/WebDriver.hs
View File

@ -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'.

5
sandwich-webdriver/src/Test/Sandwich/WebDriver/Internal/Action.hs
View File

@ -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