@@ -1,3 +1,4 @@
1{-# LANGUAGE FlexibleInstances #-}
2{-# LANGUAGE FlexibleInstances #-}
2{-# LANGUAGE GeneralizedNewtypeDeriving #-}
3{-# LANGUAGE GeneralizedNewtypeDeriving #-}
3{-# LANGUAGE MultiParamTypeClasses #-}
4{-# LANGUAGE MultiParamTypeClasses #-}
@@ -9,6 +10,11 @@ module Database.V5.Bloodhound.Internal.Client where
10import Bloodhound.Import
11import Bloodhound.Import
13+#if defined(MIN_VERSION_GLASGOW_HASKELL)
14+#if MIN_VERSION_GLASGOW_HASKELL(8,6,0,0)
15+import Control.Monad.Fail (MonadFail)
12import qualified Data.Text as T
18import qualified Data.Text as T
13import qualified Data.Traversable as DT
19import qualified Data.Traversable as DT
14import qualified Data.HashMap.Strict as HM
20import qualified Data.HashMap.Strict as HM
@@ -71,6 +77,11 @@ newtype BH m a = BH {
71 , MonadFix
77 , MonadFix
72 , MonadThrow
78 , MonadThrow
73 , MonadCatch
79 , MonadCatch
80+#if defined(MIN_VERSION_GLASGOW_HASKELL)
81+#if MIN_VERSION_GLASGOW_HASKELL(8,6,0,0)
74 , MonadMask)
85 , MonadMask)
76instance MonadTrans BH where
87instance MonadTrans BH where