From db6d903573c2b093337f6173182fb7f5c2978810 Mon Sep 17 00:00:00 2001 From: Gurkenglas Date: Wed, 8 Aug 2018 14:03:41 +0200 Subject: [PATCH] Move ExceptionMonad instance lift to ghc-mod --- src/Language/Haskell/Refact/Utils/Monad.hs | 12 ------------ 1 file changed, 12 deletions(-) diff --git a/src/Language/Haskell/Refact/Utils/Monad.hs b/src/Language/Haskell/Refact/Utils/Monad.hs index f302be09d..982b4396f 100644 --- a/src/Language/Haskell/Refact/Utils/Monad.hs +++ b/src/Language/Haskell/Refact/Utils/Monad.hs @@ -65,9 +65,6 @@ import System.Log.Logger import qualified Data.Map as Map import qualified Data.Set as Set --- Monad transformer stuff -import Control.Monad.Trans.Control ( control, liftBaseOp, liftBaseOp_) - -- --------------------------------------------------------------------- data VerboseLevel = Debug | Normal | Off @@ -244,15 +241,6 @@ instance GHC.HasDynFlags RefactGhc where -- --------------------------------------------------------------------- -instance ExceptionMonad (StateT RefactState IO) where - gcatch act handler = control $ \run -> - run act `gcatch` (run . handler) - - gmask = liftBaseOp gmask . liftRestore - where liftRestore f r = f $ liftBaseOp_ r - --- --------------------------------------------------------------------- - cabalModuleGraphs :: RefactGhc [GM.GmModuleGraph] cabalModuleGraphs = RefactGhc doCabalModuleGraphs where