From 08f039fdf398ac40b8272f7de9b889c4b3af8d7d Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Jan=20Hr=C4=8Dek?= Date: Sat, 11 Dec 2021 16:10:14 +0100 Subject: [PATCH] Remove unused import, use let --- ghcide/src/Development/IDE/Types/HscEnvEq.hs | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) diff --git a/ghcide/src/Development/IDE/Types/HscEnvEq.hs b/ghcide/src/Development/IDE/Types/HscEnvEq.hs index 3900ea47a0..d175bb884d 100644 --- a/ghcide/src/Development/IDE/Types/HscEnvEq.hs +++ b/ghcide/src/Development/IDE/Types/HscEnvEq.hs @@ -16,7 +16,6 @@ import Control.Concurrent.Strict (modifyVar, newVar) import Control.DeepSeq (force) import Control.Exception (evaluate, mask, throwIO) import Control.Monad.Extra (eitherM, join, mapMaybeM) -import Control.Monad.IO.Class import Data.Either (fromRight) import Data.Set (Set) import qualified Data.Set as Set @@ -81,11 +80,11 @@ newHscEnvEqWithImportPaths envImportPaths hscEnv deps = do | d <- depends , Just pkg <- [lookupPackageConfig d hscEnv] , (modName, maybeOtherPkgMod) <- unitExposedModules pkg - , m <- pure $ case maybeOtherPkgMod of - -- When module is re-exported from another package, - -- the origin module is represented by value in Just - Just otherPkgMod -> otherPkgMod - Nothing -> mkModule (unitInfoId pkg) modName + , let m = case maybeOtherPkgMod of + -- When module is re-exported from another package, + -- the origin module is represented by value in Just + Just otherPkgMod -> otherPkgMod + Nothing -> mkModule (unitInfoId pkg) modName ] doOne m = do