From 61b0138cf6ff3d1e44250f1bcb0bf49947abb7b6 Mon Sep 17 00:00:00 2001 From: Neil Mitchell Date: Sat, 17 Apr 2021 15:54:14 +0100 Subject: [PATCH] Explicitly import liftIO if you need it, rather than getting it from Shake --- ghcide/src/Development/IDE/Core/FileExists.hs | 1 + ghcide/src/Development/IDE/Core/FileStore.hs | 1 + ghcide/src/Development/IDE/Core/IdeConfiguration.hs | 1 + ghcide/src/Development/IDE/Core/OfInterest.hs | 1 + ghcide/src/Development/IDE/Plugin/Completions.hs | 2 +- 5 files changed, 5 insertions(+), 1 deletion(-) diff --git a/ghcide/src/Development/IDE/Core/FileExists.hs b/ghcide/src/Development/IDE/Core/FileExists.hs index 3357c8753b..31eb97804e 100644 --- a/ghcide/src/Development/IDE/Core/FileExists.hs +++ b/ghcide/src/Development/IDE/Core/FileExists.hs @@ -13,6 +13,7 @@ where import Control.Concurrent.Strict import Control.Exception import Control.Monad.Extra +import Control.Monad.IO.Class import qualified Data.ByteString as BS import Data.HashMap.Strict (HashMap) import qualified Data.HashMap.Strict as HashMap diff --git a/ghcide/src/Development/IDE/Core/FileStore.hs b/ghcide/src/Development/IDE/Core/FileStore.hs index ed821761c6..17b418714d 100644 --- a/ghcide/src/Development/IDE/Core/FileStore.hs +++ b/ghcide/src/Development/IDE/Core/FileStore.hs @@ -27,6 +27,7 @@ import Control.Concurrent.STM.TQueue (writeTQueue) import Control.Concurrent.Strict import Control.Exception import Control.Monad.Extra +import Control.Monad.IO.Class import qualified Data.ByteString as BS import Data.Either.Extra import qualified Data.HashMap.Strict as HM diff --git a/ghcide/src/Development/IDE/Core/IdeConfiguration.hs b/ghcide/src/Development/IDE/Core/IdeConfiguration.hs index dd9e0a0d3e..a198a96ec4 100644 --- a/ghcide/src/Development/IDE/Core/IdeConfiguration.hs +++ b/ghcide/src/Development/IDE/Core/IdeConfiguration.hs @@ -14,6 +14,7 @@ where import Control.Concurrent.Strict import Control.Monad +import Control.Monad.IO.Class import Data.Aeson.Types (Value) import Data.HashSet (HashSet, singleton) import Data.Hashable (Hashed, hashed, unhashed) diff --git a/ghcide/src/Development/IDE/Core/OfInterest.hs b/ghcide/src/Development/IDE/Core/OfInterest.hs index 702a5179f8..da01d08ce2 100644 --- a/ghcide/src/Development/IDE/Core/OfInterest.hs +++ b/ghcide/src/Development/IDE/Core/OfInterest.hs @@ -17,6 +17,7 @@ import Control.Concurrent.Strict import Control.DeepSeq import Control.Exception import Control.Monad +import Control.Monad.IO.Class import Data.Binary import Data.HashMap.Strict (HashMap) import qualified Data.HashMap.Strict as HashMap diff --git a/ghcide/src/Development/IDE/Plugin/Completions.hs b/ghcide/src/Development/IDE/Plugin/Completions.hs index 0881c605c8..0ab0d75c2a 100644 --- a/ghcide/src/Development/IDE/Plugin/Completions.hs +++ b/ghcide/src/Development/IDE/Plugin/Completions.hs @@ -10,8 +10,8 @@ module Development.IDE.Plugin.Completions ) where import Control.Concurrent.Async (concurrently) -import Control.Monad import Control.Monad.Extra +import Control.Monad.IO.Class import Control.Monad.Trans.Maybe import Data.Aeson import Data.List (find)