Skip to content

Commit 7cde7d3

Browse files
committed
fix build with ghc <8.10
1 parent e75af91 commit 7cde7d3

File tree

4 files changed

+8
-4
lines changed

4 files changed

+8
-4
lines changed

ghcide/src/Development/IDE/Core/Shake.hs

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -5,6 +5,7 @@
55
{-# LANGUAGE DerivingStrategies #-}
66
{-# LANGUAGE DuplicateRecordFields #-}
77
{-# LANGUAGE ExistentialQuantification #-}
8+
{-# LANGUAGE PackageImports #-}
89
{-# LANGUAGE PolyKinds #-}
910
{-# LANGUAGE RankNTypes #-}
1011
{-# LANGUAGE RecursiveDo #-}
@@ -166,7 +167,7 @@ import HieDb.Types
166167
import Ide.Plugin.Config
167168
import qualified Ide.PluginUtils as HLS
168169
import Ide.Types (PluginId)
169-
import qualified ListT
170+
import qualified "list-t" ListT
170171
import qualified StmContainers.Map as STM
171172

172173
-- | We need to serialize writes to the database, so we send any function that

ghcide/src/Development/IDE/Core/Tracing.hs

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,5 +1,6 @@
11
{-# LANGUAGE CPP #-}
22
{-# LANGUAGE NoApplicativeDo #-}
3+
{-# LANGUAGE PackageImports #-}
34
{-# HLINT ignore #-}
45
module Development.IDE.Core.Tracing
56
( otTracedHandler
@@ -59,7 +60,7 @@ import Ide.PluginUtils (installSigUsr1Handler)
5960
import Ide.Types (PluginId (..))
6061
import Language.LSP.Types (NormalizedFilePath,
6162
fromNormalizedFilePath)
62-
import qualified ListT
63+
import qualified "list-t" ListT
6364
import Numeric.Natural (Natural)
6465
import OpenTelemetry.Eventlog (SpanInFlight (..), addEvent,
6566
beginSpan, endSpan,

ghcide/src/Development/IDE/Main.hs

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,3 +1,4 @@
1+
{-# LANGUAGE PackageImports #-}
12
{-# OPTIONS_GHC -Wno-orphans #-}
23
module Development.IDE.Main
34
(Arguments(..)
@@ -98,7 +99,7 @@ import Ide.Types (IdeCommand (IdeCommand),
9899
PluginId (PluginId),
99100
ipMap)
100101
import qualified Language.LSP.Server as LSP
101-
import qualified ListT
102+
import qualified "list-t" ListT
102103
import Numeric.Natural (Natural)
103104
import Options.Applicative hiding (action)
104105
import qualified StmContainers.Map as STM

ghcide/src/Development/IDE/Plugin/Test.hs

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,7 @@
11
{-# LANGUAGE DeriveAnyClass #-}
22
{-# LANGUAGE DerivingStrategies #-}
33
{-# LANGUAGE GADTs #-}
4+
{-# LANGUAGE PackageImports #-}
45
{-# LANGUAGE PolyKinds #-}
56
-- | A plugin that adds custom messages for use in tests
67
module Development.IDE.Plugin.Test
@@ -45,7 +46,7 @@ import Ide.Plugin.Config (CheckParents)
4546
import Ide.Types
4647
import qualified Language.LSP.Server as LSP
4748
import Language.LSP.Types
48-
import qualified ListT
49+
import qualified "list-t" ListT
4950
import qualified StmContainers.Map as STM
5051
import System.Time.Extra
5152

0 commit comments

Comments
 (0)