hls-graph: Internal.Types: treat MonadFail

haskell · Dec 28, 2021 · 27a0e4f · 27a0e4f
1 parent 9ca4071
commit 27a0e4f
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/hls-graph/src/Development/IDE/Graph/Internal/Types.hs b/hls-graph/src/Development/IDE/Graph/Internal/Types.hs
@@ -18,7 +18,10 @@ import           Control.Monad.Catch
 -- Needed in GHC 8.6.5
 import           Control.Concurrent.STM.Stats  (TVar, atomically)
 #endif
+#if __GLASGOW_HASKELL__ < 880
+import           Prelude hiding (MonadFail)
 import           Control.Monad.Fail
+#endif
 import           Control.Monad.IO.Class
 import           Control.Monad.Trans.Reader
 import           Data.Aeson                    (FromJSON, ToJSON)