From e4c0f9e41fcac30392b72c038ec308dbde1d37bd Mon Sep 17 00:00:00 2001 From: Kevin Quick Date: Mon, 11 May 2020 11:30:34 -0700 Subject: [PATCH] Select exceptions/MonadExceptions from haskeline version, not base. --- cryptol/REPL/Haskeline.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/cryptol/REPL/Haskeline.hs b/cryptol/REPL/Haskeline.hs index 1753b55f..cd03ec95 100644 --- a/cryptol/REPL/Haskeline.hs +++ b/cryptol/REPL/Haskeline.hs @@ -23,7 +23,7 @@ import Cryptol.Utils.Ident(modNameToText, interactiveName) import qualified Control.Exception as X import Control.Monad (guard, join) import qualified Control.Monad.Trans.Class as MTL -#if !MIN_VERSION_base(4,14,0) +#if !MIN_VERSION_haskeline(0,8,0) import Control.Monad.Trans.Control #endif import Data.Char (isAlphaNum, isSpace) @@ -162,7 +162,7 @@ data Cryptolrc = -- Utilities ------------------------------------------------------------------- -#if !MIN_VERSION_base(4,14,0) +#if !MIN_VERSION_haskeline(0,8,0) instance MonadException REPL where controlIO f = join $ liftBaseWith $ \f' -> f $ RunIO $ \m -> restoreM <$> (f' m)