[commit: packages/haskeline] master: Add MonadExcept IdentityT instance (cfaeafa)
git at git.haskell.org
git at git.haskell.org
Fri Apr 21 06:41:40 UTC 2017
Repository : ssh://git@git.haskell.org/haskeline
On branch : master
Link : http://git.haskell.org/packages/haskeline.git/commitdiff/cfaeafae9d4a2bf957d2a683a69a95bfc146f2fc
>---------------------------------------------------------------
commit cfaeafae9d4a2bf957d2a683a69a95bfc146f2fc
Author: Vladislav Zavialov <vlad.z.4096 at gmail.com>
Date: Mon Apr 3 17:38:50 2017 +0300
Add MonadExcept IdentityT instance
>---------------------------------------------------------------
cfaeafae9d4a2bf957d2a683a69a95bfc146f2fc
System/Console/Haskeline/MonadException.hs | 3 ++-
haskeline.cabal | 1 +
2 files changed, 3 insertions(+), 1 deletion(-)
diff --git a/System/Console/Haskeline/MonadException.hs b/System/Console/Haskeline/MonadException.hs
index 372557d..b796bf0 100644
--- a/System/Console/Haskeline/MonadException.hs
+++ b/System/Console/Haskeline/MonadException.hs
@@ -33,6 +33,7 @@ import Prelude hiding (catch)
#endif
import Control.Monad(liftM, join)
import Control.Monad.IO.Class
+import Control.Monad.Trans.Identity
import Control.Monad.Trans.Reader
import Control.Monad.Trans.State.Strict
import Control.Monad.Trans.Error
@@ -179,4 +180,4 @@ instance (Monoid w, MonadException m) => MonadException (RWST r w s m) where
. run . (\m -> runRWST m r s))
in fmap (\m -> runRWST m r s) $ f run'
-
+deriving instance MonadException m => MonadException (IdentityT m)
diff --git a/haskeline.cabal b/haskeline.cabal
index 11d280c..ace63ec 100644
--- a/haskeline.cabal
+++ b/haskeline.cabal
@@ -52,6 +52,7 @@ Library
TypeSynonymInstances
FlexibleContexts, ExistentialQuantification
ScopedTypeVariables, GeneralizedNewtypeDeriving
+ StandaloneDeriving
MultiParamTypeClasses, OverlappingInstances
UndecidableInstances
ScopedTypeVariables, CPP, DeriveDataTypeable,
More information about the ghc-commits
mailing list