mirror of
https://github.com/commercialhaskell/stackage.git
synced 2026-01-12 07:18:31 +01:00
44 lines
1.7 KiB
Diff
44 lines
1.7 KiB
Diff
diff -ru orig/Git/CmdLine.hs new/Git/CmdLine.hs
|
|
--- orig/Git/CmdLine.hs 2014-04-06 18:49:23.851795879 +0300
|
|
+++ new/Git/CmdLine.hs 2014-04-06 18:49:23.000000000 +0300
|
|
@@ -23,8 +23,9 @@
|
|
import Control.Monad.Reader.Class
|
|
import Control.Monad.Trans.Class
|
|
import Control.Monad.Trans.Reader (ReaderT, runReaderT)
|
|
+import Control.Monad.Trans.Resource (MonadThrow (..))
|
|
import qualified Data.ByteString as B
|
|
-import Data.Conduit hiding (MonadBaseControl)
|
|
+import Data.Conduit
|
|
import qualified Data.Conduit.List as CL
|
|
import Data.Foldable (for_)
|
|
import Data.Function
|
|
@@ -88,7 +89,7 @@
|
|
-- instance HasCliRepo (env, CliRepo) where
|
|
-- getCliRepo = snd
|
|
|
|
-instance (Applicative m, Failure GitException m, MonadIO m)
|
|
+instance (Applicative m, Failure GitException m, MonadIO m, MonadThrow m)
|
|
=> MonadGit CliRepo (ReaderT CliRepo m) where
|
|
type Oid CliRepo = SHA
|
|
data Tree CliRepo = CmdLineTree (TreeOid CliRepo)
|
|
@@ -127,7 +128,7 @@
|
|
|
|
diffContentsWithTree = error "Not defined cliDiffContentsWithTree"
|
|
|
|
-type MonadCli m = (Applicative m, Failure GitException m, MonadIO m)
|
|
+type MonadCli m = (Applicative m, Failure GitException m, MonadIO m, MonadThrow m)
|
|
|
|
mkOid :: MonadCli m => forall o. TL.Text -> ReaderT CliRepo m (Tagged o SHA)
|
|
mkOid = fmap Tagged <$> textToSha . toStrict
|
|
diff -ru orig/gitlib-cmdline.cabal new/gitlib-cmdline.cabal
|
|
--- orig/gitlib-cmdline.cabal 2014-04-06 18:49:23.895795879 +0300
|
|
+++ new/gitlib-cmdline.cabal 2014-04-06 18:49:23.000000000 +0300
|
|
@@ -39,6 +39,7 @@
|
|
, transformers >= 0.2.2
|
|
, transformers-base >= 0.4.1
|
|
, unordered-containers >= 0.2.3.0
|
|
+ , resourcet
|
|
exposed-modules:
|
|
Git.CmdLine
|
|
|