Skip to content

Commit a1b12b0

Browse files
committed
More changes to solve stylish haskell parse errors
1 parent ae0c403 commit a1b12b0

File tree

3 files changed

+10
-9
lines changed
  • ghcide/src/Development/IDE
  • plugins/hls-refactor-plugin/src/Development/IDE/Plugin/CodeAction

3 files changed

+10
-9
lines changed

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

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -132,7 +132,7 @@ import Development.IDE.GHC.Compat (NameCache,
132132
knownKeyNames,
133133
mkSplitUniqSupply)
134134
#if !MIN_VERSION_ghc(9,3,0)
135-
import Development.IDE.GHC.Compat ( upNameCache)
135+
import Development.IDE.GHC.Compat (upNameCache)
136136
#endif
137137
import Development.IDE.GHC.Orphans ()
138138
import Development.IDE.Graph hiding (ShakeValue)

ghcide/src/Development/IDE/Spans/Common.hs

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -49,10 +49,11 @@ safeTyThingId (AConLike (RealDataCon dataCon)) = Just (dataConWrapId dataCon)
4949
safeTyThingId _ = Nothing
5050

5151
-- Possible documentation for an element in the code
52-
data SpanDoc
5352
#if MIN_VERSION_ghc(9,3,0)
53+
data SpanDoc
5454
= SpanDocString [HsDocString] SpanDocUris
5555
#else
56+
data SpanDoc
5657
= SpanDocString HsDocString SpanDocUris
5758
#endif
5859
| SpanDocText [T.Text] SpanDocUris

plugins/hls-refactor-plugin/src/Development/IDE/Plugin/CodeAction/Util.hs

Lines changed: 7 additions & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -1,12 +1,5 @@
11
module Development.IDE.Plugin.CodeAction.Util where
22

3-
#if MIN_VERSION_ghc(9,2,0)
4-
import GHC.Utils.Outputable
5-
#else
6-
import Development.IDE.GHC.Util
7-
import Development.IDE.GHC.Compat.Util
8-
import Development.IDE.GHC.Compat
9-
#endif
103
import Data.Data (Data)
114
import qualified Data.Unique as U
125
import Debug.Trace
@@ -18,6 +11,13 @@ import Text.Printf
1811
import Development.IDE.GHC.Dump (showAstDataHtml)
1912
import Data.Time.Clock.POSIX (POSIXTime, getCurrentTime,
2013
utcTimeToPOSIXSeconds)
14+
#if MIN_VERSION_ghc(9,2,0)
15+
import GHC.Utils.Outputable
16+
#else
17+
import Development.IDE.GHC.Util
18+
import Development.IDE.GHC.Compat.Util
19+
import Development.IDE.GHC.Compat
20+
#endif
2121
--------------------------------------------------------------------------------
2222
-- Tracing exactprint terms
2323

0 commit comments

Comments
 (0)