hw-polysemy 0.2.4.1 → 0.2.4.2

raw patch · 4 files changed

+40/−16 lines, 4 filesPVP: minor bump suggested

API additions: PVP suggests at least a minor version bump

API changes (from Hackage documentation)

+ HaskellWorks.Polysemy.Hedgehog: nothingFail :: () => Member Hedgehog r => HasCallStack => Maybe a -> Sem r a

+ HaskellWorks.Polysemy.Hedgehog: nothingFailM :: forall r a. () => Member Hedgehog r => HasCallStack => Sem r (Maybe a) -> Sem r a

+ HaskellWorks.Polysemy.Hedgehog: requireHead :: () => Member Hedgehog r => HasCallStack => [a] -> Sem r a

+ HaskellWorks.Polysemy.Hedgehog: trapFail :: forall e r a. () => Member Hedgehog r => HasCallStack => Show e => Sem (Error e ': r) a -> Sem r a

+ HaskellWorks.Polysemy.Hedgehog.Process: ExecConfig :: Last [(String, String)] -> Last FilePath -> ExecConfig

+ HaskellWorks.Polysemy.Hedgehog.Process: [$sel:execConfigCwd:ExecConfig] :: ExecConfig -> Last FilePath

+ HaskellWorks.Polysemy.Hedgehog.Process: [$sel:execConfigEnv:ExecConfig] :: ExecConfig -> Last [(String, String)]

+ HaskellWorks.Polysemy.Hedgehog.Process: data ExecConfig

+ HaskellWorks.Polysemy.Hedgehog.Process: execDetailFlex :: () => HasCallStack => Member (Embed IO) r => Member (Error GenericError) r => Member (Error IOException) r => Member Hedgehog r => Member Log r => ExecConfig -> String -> String -> [String] -> Sem r (ExitCode, String, String)

Files

hedgehog/HaskellWorks/Polysemy/Hedgehog.hs +4/−0
hedgehog/HaskellWorks/Polysemy/Hedgehog/Process.hs +33/−12
hw-polysemy.cabal +1/−1
test/HaskellWorks/Polysemy/HedgehogSpec.hs +2/−3

hedgehog/HaskellWorks/Polysemy/Hedgehog.hs view

@@ -10,6 +10,10 @@     leftFail,     leftFailM,     catchFail,+    nothingFail,+    nothingFailM,+    requireHead,+    trapFail,      failure,     failMessage,

hedgehog/HaskellWorks/Polysemy/Hedgehog/Process.hs view

@@ -1,17 +1,19 @@ module HaskellWorks.Polysemy.Hedgehog.Process-  ( defaultExecConfig-  , execFlex-  , execFlexOk-  , execFlexOk'-  , execOk-  , execOk_-  , exec-  , procFlex-  , procFlex'-  , binFlex+  ( ExecConfig(..),+    defaultExecConfig,+    execDetailFlex,+    execFlex,+    execFlexOk,+    execFlexOk',+    execOk,+    execOk_,+    exec,+    procFlex,+    procFlex',+    binFlex, -  , waitSecondsForProcess-  , waitSecondsForProcessOk+    waitSecondsForProcess,+    waitSecondsForProcessOk,    ) where @@ -109,6 +111,25 @@     ShellCommand cmd    -> cmd     RawCommand cmd args -> cmd <> " " <> L.unwords (argQuote <$> args) +  readCreateProcessWithExitCode cp ""++execDetailFlex :: ()+  => HasCallStack+  => Member (Embed IO) r+  => Member (Error GenericError) r+  => Member (Error IOException) r+  => Member Hedgehog r+  => Member Log r+  => ExecConfig+  -> String+  -> String+  -> [String]+  -> Sem r (ExitCode, String, String)+execDetailFlex execConfig pkgBin envBin arguments = withFrozenCallStack $ do+  cp <- procFlex' execConfig pkgBin envBin arguments+  jot_ . ("Command: " <>) $ case cmdspec cp of+    ShellCommand cmd    -> cmd+    RawCommand cmd args -> cmd <> " " <> L.unwords args   readCreateProcessWithExitCode cp ""  -- | Execute a process, returning '()'.

hw-polysemy.cabal view

@@ -1,6 +1,6 @@ cabal-version:          3.4 name:                   hw-polysemy-version:                0.2.4.1+version:                0.2.4.2 synopsis:               Opinionated polysemy library description:            Opinionated polysemy library. license:                Apache-2.0

test/HaskellWorks/Polysemy/HedgehogSpec.hs view

@@ -8,10 +8,9 @@  import           HaskellWorks.Polysemy.Prelude -import qualified Data.List                             as L-import qualified HaskellWorks.Polysemy.Data.Text       as T+import qualified Data.List                       as L+import qualified HaskellWorks.Polysemy.Data.Text as T import           HaskellWorks.Polysemy.Hedgehog-import           HaskellWorks.Polysemy.Hedgehog.Assert  default (String)