Merge pull request #20 from theGhostJW:remove-action-runconfig-param

remove runConfig param from action

cabal.project

@@ -1,18 +1,5 @@
--- Generated by stack2cabal
-
-packages:
- ./
-import: https://www.stackage.org/nightly-2024-01-14/cabal.config
-
-source-repository-package
- type: git
- location: https://github.com/theGhostJW/chronos
- tag: b199bf6df1453af95832c2d2f9f0ef48c3622caa
-
--- source-repository-package
---   type: git
---   location: https://github.com/theGhostJW/encode-string
---   tag: 9e9b91cdec5a4ce92d2024d1d9edea0e98eccf66
+packages: .
+import: https://www.stackage.org/nightly-2024-12-05/cabal.config
 
 source-repository-package
   type: git
@@ -32,7 +19,7 @@ optimization: 0
 -- semaphore: true
 -- jobs: $ncpus
 
-allow-newer: base, 
+allow-newer: base,
              hedgehog:barbies, 
              bytesmith:bytestring, 
              primitive-unlifted:bytestring, 
@@ -45,4 +32,5 @@ allow-newer: base,
 
 package *
  ghc-options: -haddock
-with-compiler: ghc-9.8.2
+with-compiler: ghc-9.8.2
+-- with-compiler: ghc-9.8.4

examples/DocumenterDemo.hs

@@ -102,8 +102,8 @@ getFailNested = pure $ error "This is a nested error !!! "
 getFail :: Eff es FSAS
 getFail = error "This is an error !!! "
 
-fsAction :: (FileSystem :> es, Out NodeLog :> es) => RunConfig -> FSData -> Eff es FSAS
-fsAction _rc i = do
+fsAction :: (FileSystem :> es, Out NodeLog :> es) => FSData -> Eff es FSAS
+fsAction i = do
   getFailNested
   -- getFail
   paths <- getPaths
@@ -201,7 +201,7 @@ webDriverSuite =
 nothingBefore :: Hook Once Before () ()
 nothingBefore =
   BeforeHook
-    { action = \_rc -> do
+    { action =  do
         log "This is the outer hook"
         log "Run once before the test"
     }
@@ -210,7 +210,7 @@ intOnceHook :: Hook Once Before () Int
 intOnceHook =
   BeforeHook'
     { depends = nothingBefore,
-      action' = \_rc _void -> do
+      action' = \ _void -> do
         log "This is the inner hook"
         log "Run once before the test"
         pure 8
@@ -235,8 +235,8 @@ _theInternet = "https://the-internet.herokuapp.com/"
 _checkBoxesLinkCss :: Selector
 _checkBoxesLinkCss = CSS "#content > ul:nth-child(4) > li:nth-child(6) > a:nth-child(1)"
 
-action :: (WebUI :> es, Out NodeLog :> es) => RunConfig -> Int -> Data -> Eff es AS
-action _rc hkInt i = do
+action :: (WebUI :> es, Out NodeLog :> es) => Int -> Data -> Eff es AS
+action hkInt i = do
   log $ "test title is: " <> i.title
   log $ "received hook int: " <> txt hkInt <> " from the hook"
   status <- driver_status