driver :: BrowserStackCredentials -> Codensity Aff Driver
driver creds = Codensity \cb -> bracket init Selenium.quit cb
  where
  init = build
    $  withCapabilities (capabilities creds)
    *> usingServer "http://hub-cloud.browserstack.com/wd/hub"

managedActions' :: Managed ()
managedActions' = do
  input <- managed (withFile "src/input.txt" ReadMode)
  output <- managed (withFile "src/output2.txt" WriteMode)
  contents <- liftIO $ hGetContents input
  liftIO $ hPutStr output contents

managedActions :: Codensity IO ()
managedActions = do
  input <- Codensity $ withFile "src/input.txt" ReadMode
  output <- Codensity $ withFile "src/output.txt" WriteMode
  contents <- liftIO $ hGetContents input
  liftIO $ hPutStr output contents
  

  
main :: IO ()
main = do
  lowerCodensity managedActions
  runManaged managedActions'