4
4
{-# LANGUAGE DuplicateRecordFields #-}
5
5
{-# LANGUAGE FlexibleContexts #-}
6
6
{-# LANGUAGE FlexibleInstances #-}
7
+ {-# LANGUAGE LambdaCase #-}
8
+ {-# LANGUAGE MultiWayIf #-}
9
+ {-# LANGUAGE NamedFieldPuns #-}
7
10
{-# LANGUAGE OverloadedLabels #-}
8
11
{-# LANGUAGE OverloadedStrings #-}
9
12
{-# LANGUAGE PackageImports #-}
10
13
{-# LANGUAGE PatternSynonyms #-}
14
+ {-# LANGUAGE RecordWildCards #-}
11
15
{-# LANGUAGE ScopedTypeVariables #-}
16
+ {-# LANGUAGE StrictData #-}
12
17
{-# LANGUAGE TupleSections #-}
13
18
{-# LANGUAGE TypeFamilies #-}
14
19
{-# LANGUAGE ViewPatterns #-}
15
- {-# LANGUAGE LambdaCase #-}
16
- {-# LANGUAGE MultiWayIf #-}
17
- {-# LANGUAGE NamedFieldPuns #-}
18
- {-# LANGUAGE RecordWildCards #-}
19
- {-# LANGUAGE StrictData #-}
20
20
21
21
{-# OPTIONS_GHC -Wno-orphans #-}
22
22
23
23
#ifdef HLINT_ON_GHC_LIB
24
- #define MIN_GHC_API_VERSION(x,y,z) MIN_VERSION_ghc_lib (x,y,z)
24
+ #define MIN_GHC_API_VERSION(x,y,z) MIN_VERSION_ghc_lib_parser (x,y,z)
25
25
#else
26
26
#define MIN_GHC_API_VERSION(x,y,z) MIN_VERSION_ghc(x,y,z)
27
27
#endif
@@ -44,8 +44,8 @@ import Data.Aeson.Types (FromJSON (.
44
44
Value (.. ))
45
45
import qualified Data.ByteString as BS
46
46
import Data.Default
47
- import qualified Data.HashMap.Strict as Map
48
47
import Data.Hashable
48
+ import qualified Data.HashMap.Strict as Map
49
49
import Data.Maybe
50
50
import qualified Data.Text as T
51
51
import qualified Data.Text.Encoding as T
@@ -67,14 +67,8 @@ import Development.IDE.GHC.Compat (DynFlags,
67
67
topDir ,
68
68
wopt )
69
69
import qualified Development.IDE.GHC.Compat.Util as EnumSet
70
- import "ghc-lib" GHC hiding
71
- (DynFlags (.. ),
72
- RealSrcSpan ,
73
- ms_hspp_opts )
74
- import qualified "ghc-lib" GHC
75
- #if MIN_GHC_API_VERSION(9,0,0)
76
- import "ghc-lib-parser" GHC.Types.SrcLoc (BufSpan )
77
- #endif
70
+ import "ghc-lib-parser" GHC.Types.SrcLoc hiding (RealSrcSpan )
71
+ import qualified "ghc-lib-parser" GHC.Types.SrcLoc as GHC
78
72
import "ghc-lib-parser" GHC.LanguageExtensions (Extension )
79
73
import Language.Haskell.GhclibParserEx.GHC.Driver.Session as GhclibParserEx (readExtension )
80
74
import System.FilePath (takeFileName )
@@ -89,9 +83,10 @@ import System.IO (IOMode (Wri
89
83
import System.IO.Temp
90
84
#else
91
85
import Development.IDE.GHC.Compat hiding
92
- (setEnv , (<+>) )
86
+ (setEnv ,
87
+ (<+>) )
93
88
import GHC.Generics (Associativity (LeftAssociative , NotAssociative , RightAssociative ))
94
- #if MIN_GHC_API_VERSION (9,2,0)
89
+ #if MIN_VERSION_GLASGOW_HASKELL (9,2,0 ,0)
95
90
import Language.Haskell.GHC.ExactPrint.ExactPrint (deltaOptions )
96
91
#else
97
92
import Language.Haskell.GHC.ExactPrint.Delta (deltaOptions )
0 commit comments