gitlib-test 3.1.0.3 → 3.1.1
raw patch · 2 files changed
+9/−9 lines, 2 filesdep +unliftio-coredep −monad-controlPVP: major bump suggested
API removals or changes: PVP suggests a major version bump
Dependencies added: unliftio-core
Dependencies removed: monad-control
API changes (from Hackage documentation)
- Git.Smoke: doTreeit :: (MonadBaseControl IO m, MonadIO m, MonadGit r n, MonadBaseControl IO n, MonadIO n) => String -> RepositoryFactory n m r -> [Kind] -> TreeT r n a -> m ()
+ Git.Smoke: doTreeit :: (MonadUnliftIO m, MonadGit r n, MonadUnliftIO n) => String -> RepositoryFactory n m r -> [Kind] -> TreeT r n a -> m ()
- Git.Smoke: smokeTestSpec :: (MonadGit r m, MonadIO m, MonadBaseControl IO m, MonadThrow m, MonadGit s n, MonadIO n, MonadBaseControl IO n, MonadThrow n) => RepositoryFactory m IO r -> RepositoryFactory n m s -> Spec
+ Git.Smoke: smokeTestSpec :: (MonadGit r m, MonadUnliftIO m, MonadThrow m, MonadGit s n, MonadUnliftIO n, MonadThrow n) => RepositoryFactory m IO r -> RepositoryFactory n m s -> Spec
- Git.Smoke: treeit :: (MonadIO n, MonadIO m, MonadBaseControl IO n, MonadBaseControl IO m, MonadGit r n, Example (m ())) => String -> RepositoryFactory n m r -> [Kind] -> TreeT r n a -> SpecWith (Arg (m ()))
+ Git.Smoke: treeit :: (Example m (), MonadGit r n, MonadUnliftIO m, MonadUnliftIO n) => String -> RepositoryFactory n m r -> [Kind] -> TreeT r n a -> SpecWith Arg m ()
- Git.Smoke: treeitFail :: (MonadGit r m, MonadIO m, MonadBaseControl IO m) => String -> RepositoryFactory m IO r -> [Kind] -> TreeT r m a -> Spec
+ Git.Smoke: treeitFail :: (MonadGit r m, MonadUnliftIO m) => String -> RepositoryFactory m IO r -> [Kind] -> TreeT r m a -> Spec
Files
- Git/Smoke.hs +7/−7
- gitlib-test.cabal +2/−2
Git/Smoke.hs view
@@ -15,6 +15,7 @@ import Control.Applicative import Control.Exception import Control.Monad+import Control.Monad.IO.Unlift import qualified Data.ByteString.Lazy as BL import Data.List (sort) import Data.Monoid@@ -33,8 +34,8 @@ sampleCommit tr sig = createCommit [] tr sig sig "Sample log message.\n" Nothing -smokeTestSpec :: (MonadGit r m, MonadIO m, MonadBaseControl IO m, MonadThrow m,- MonadGit s n, MonadIO n, MonadBaseControl IO n, MonadThrow n)+smokeTestSpec :: (MonadGit r m, MonadUnliftIO m, MonadThrow m,+ MonadGit s n, MonadUnliftIO n, MonadThrow n) => RepositoryFactory m IO r -> RepositoryFactory n m s -> Spec@@ -429,8 +430,7 @@ =<< lift (createBlob $ BlobStream $ sourceLazy (BL.fromChunks [path <> "\n"])) -doTreeit :: (MonadBaseControl IO m, MonadIO m,- MonadGit r n, MonadBaseControl IO n, MonadIO n)+doTreeit :: (MonadUnliftIO m, MonadGit r n, MonadUnliftIO n) => String -> RepositoryFactory n m r -> [Kind] -> TreeT r n a -> m () doTreeit label pr kinds action = withNewRepository pr fullPath $ do tref <- createTree action@@ -456,12 +456,12 @@ fullPath = normalize label <> ".git" normalize = map (\x -> if x == ' ' then '-' else x) --- treeit :: (Example (m ()), MonadIO m, MonadBaseControl IO m,--- MonadGit r n, MonadIO n, MonadBaseControl IO n)+-- treeit :: (Example (m ()), MonadUnliftIO m+-- MonadGit r n, MonadUnliftIO n) -- => String -> RepositoryFactory n m r -> [Kind] -> TreeT r n a -> Spec treeit label pr kinds action = it label $ doTreeit label pr kinds action -treeitFail :: (MonadGit r m, MonadIO m, MonadBaseControl IO m)+treeitFail :: (MonadGit r m, MonadUnliftIO m) => String -> RepositoryFactory m IO r -> [Kind] -> TreeT r m a -> Spec treeitFail label pr kinds action =
gitlib-test.cabal view
@@ -1,5 +1,5 @@ Name: gitlib-test-Version: 3.1.0.3+Version: 3.1.1 Synopsis: Test library for confirming gitlib backend compliance License-file: LICENSE License: MIT@@ -29,10 +29,10 @@ , exceptions >= 0.5 , conduit >= 1.1.0 , conduit-combinators >= 1- , monad-control < 1.1 , tagged >= 0.4.4 , text >= 0.11.2 , time >= 1.4 , transformers >= 0.3+ , unliftio-core >= 0.1.1 exposed-modules: Git.Smoke