haskell · mergify · Jan 19, 2021 · Jan 15, 2021 · Jan 17, 2021 · Jan 18, 2021
@@ -15,8 +15,8 @@ packages:
 
 source-repository-package
   type: git
-  location: https://github.com/mpickering/apply-refact.git
-  tag: 4fbd3a3a9b408bd31080848feb6b78e13c3eeb6d
+  location: https://github.com/alanz/ghc-exactprint.git
+  tag: 6748e24da18a6cea985d20cc3e1e7920cb743795
 
 tests: true
 
@@ -30,7 +30,7 @@ package ghcide
 
 write-ghc-environment-files: never
 
-index-state: 2021-01-14T12:49:26Z
+index-state: 2021-01-17T17:47:48Z
 
 allow-newer:
 	active:base,

@@ -41,10 +41,12 @@ import Development.IDE.Core.Shake (getDiagnostics)
 import Data.List (nub)
 import "ghc-lib" GHC hiding (DynFlags(..), ms_hspp_opts)
 import "ghc-lib-parser" GHC.LanguageExtensions (Extension)
+import "ghc" DynFlags as RealGHC.DynFlags (topDir)
 import "ghc" GHC as RealGHC (DynFlags(..))
 import "ghc" HscTypes as RealGHC.HscTypes (hsc_dflags, ms_hspp_opts)
 import qualified "ghc" EnumSet as EnumSet
 import Language.Haskell.GhclibParserEx.GHC.Driver.Session as GhclibParserEx (readExtension)
+import System.Environment(setEnv, unsetEnv)
 import System.FilePath (takeFileName)
 import System.IO (hPutStr, noNewlineTranslation, hSetNewlineMode, utf8, hSetEncoding, IOMode(WriteMode), withFile, hClose)
 import System.IO.Temp
@@ -362,6 +364,8 @@ applyHint ide nfp mhint =
     let fp = fromNormalizedFilePath nfp
     (_, mbOldContent) <- liftIO $ runAction' $ getFileContents nfp
     oldContent <- maybe (liftIO $ T.readFile fp) return mbOldContent
+    (modsum, _) <- liftIO $ runAction' $ use_ GetModSummary nfp
+    let dflags = ms_hspp_opts modsum
     -- set Nothing as "position" for "applyRefactorings" because
     -- applyRefactorings expects the provided position to be _within_ the scope
     -- of each refactoring it will apply.
@@ -383,6 +387,15 @@ applyHint ide nfp mhint =
                 hSetEncoding h utf8
                 hSetNewlineMode h noNewlineTranslation
                 hPutStr h (T.unpack txt)
+    -- Setting a environment variable with the libdir used by ghc-exactprint.
+    -- It is a workaround for an error caused by the use of a hadcoded at compile time libdir
+    -- in ghc-exactprint that makes dependent executables non portables.
+    -- See https://github.com/alanz/ghc-exactprint/issues/96.
+    -- WARNING: this code is not thread safe, so if you try to apply several async refactorings
+    -- it could fail. That case is not very likely so we assume the risk.
+    let withRuntimeLibdir :: IO a -> IO a
+        withRuntimeLibdir = bracket (setEnv key $ topDir dflags) (const $ unsetEnv key) . const
+            where key = "GHC_EXACTPRINT_GHC_LIBDIR"
     res <-
         liftIO $ withSystemTempFile (takeFileName fp) $ \temp h -> do
             hClose h
@@ -392,7 +405,7 @@ applyHint ide nfp mhint =
             -- We have to reparse extensions to remove the invalid ones
             let (enabled, disabled, _invalid) = parseExtensions $ map show exts
             let refactExts = map show $ enabled ++ disabled
-            (Right <$> applyRefactorings Nothing commands temp refactExts)
+            (Right <$> withRuntimeLibdir (applyRefactorings Nothing commands temp refactExts))
                 `catches` errorHandlers
 #else
     mbParsedModule <- liftIO $ runAction' $ getParsedModuleWithComments nfp
@@ -402,8 +415,6 @@ applyHint ide nfp mhint =
             Just pm -> do
                 let anns = pm_annotations pm
                 let modu = pm_parsed_source pm
-                (modsum, _) <- liftIO $ runAction' $ use_ GetModSummary nfp
-                let dflags = ms_hspp_opts modsum
                 -- apply-refact uses RigidLayout
                 let rigidLayout = deltaOptions RigidLayout
                 (anns', modu') <-

diff --git a/stack-8.10.1.yaml b/stack-8.10.1.yaml
@@ -19,17 +19,20 @@ ghc-options:
   "$everything": -haddock
 
 extra-deps:
-  - git: https://github.com/mpickering/apply-refact.git
-    commit: 4fbd3a3a9b408bd31080848feb6b78e13c3eeb6d
+  - apply-refact-0.9.0.0
   - brittany-0.13.1.0
   - Cabal-3.0.2.0
   - clock-0.7.2
   - data-tree-print-0.1.0.2@rev:2
   - floskell-0.10.4
   - fourmolu-0.3.0.0
-  - ghc-exactprint-0.6.3.3
+  # - ghc-exactprint-0.6.3.3
+  - git: https://github.com/alanz/ghc-exactprint.git
+    commit: 6748e24da18a6cea985d20cc3e1e7920cb743795
   - ghc-lib-8.10.3.20201220
   - ghc-lib-parser-8.10.3.20201220
+  - haskell-lsp-0.23.0.0
+  - haskell-lsp-types-0.23.0.0
   - heapsize-0.3.0
   - hie-bios-0.7.1
   - hlint-3.2.3
@@ -46,8 +49,7 @@ extra-deps:
   - stylish-haskell-0.12.2.0
   - semigroups-0.18.5
   - temporary-1.2.1.1
-  - haskell-lsp-0.23.0.0
-  - haskell-lsp-types-0.23.0.0
+  - uniplate-1.6.13
 
 configure-options:
   ghcide:

diff --git a/stack-8.10.2.yaml b/stack-8.10.2.yaml
@@ -19,16 +19,19 @@ ghc-options:
   "$everything": -haddock
 
 extra-deps:
-  - git: https://github.com/mpickering/apply-refact.git
-    commit: 4fbd3a3a9b408bd31080848feb6b78e13c3eeb6d
+  - apply-refact-0.9.0.0
   - brittany-0.13.1.0
   - Cabal-3.0.2.0
   - clock-0.7.2
   - data-tree-print-0.1.0.2@rev:2
   - floskell-0.10.4
   - fourmolu-0.3.0.0
+  - git: https://github.com/alanz/ghc-exactprint.git
+    commit: 6748e24da18a6cea985d20cc3e1e7920cb743795
   - ghc-lib-8.10.3.20201220
   - ghc-lib-parser-8.10.3.20201220
+  - haskell-lsp-0.23.0.0
+  - haskell-lsp-types-0.23.0.0
   - heapsize-0.3.0
   - implicit-hie-cradle-0.3.0.2
   - implicit-hie-0.1.2.5
@@ -39,8 +42,6 @@ extra-deps:
   - stylish-haskell-0.12.2.0
   - semigroups-0.18.5
   - temporary-1.2.1.1
-  - haskell-lsp-0.23.0.0
-  - haskell-lsp-types-0.23.0.0
 
 configure-options:
   ghcide:

diff --git a/stack-8.10.3.yaml b/stack-8.10.3.yaml
@@ -1,4 +1,4 @@
-resolver: nightly-2021-01-01 # first ghc-8.10.3 nightly
+resolver: nightly-2021-01-17
 
 packages:
   - .
@@ -19,14 +19,15 @@ ghc-options:
   "$everything": -haddock
 
 extra-deps:
-  - git: https://github.com/mpickering/apply-refact.git
-    commit: 4fbd3a3a9b408bd31080848feb6b78e13c3eeb6d
+  - apply-refact-0.9.0.0
   - brittany-0.13.1.0
   - Cabal-3.0.2.0
   - clock-0.7.2
   - data-tree-print-0.1.0.2@rev:2
   - floskell-0.10.4
   - fourmolu-0.3.0.0
+  - git: https://github.com/alanz/ghc-exactprint.git
+    commit: 6748e24da18a6cea985d20cc3e1e7920cb743795
   - heapsize-0.3.0
   - implicit-hie-cradle-0.3.0.2
   - implicit-hie-0.1.2.5

diff --git a/stack-8.6.4.yaml b/stack-8.6.4.yaml
@@ -21,9 +21,7 @@ ghc-options:
 
 extra-deps:
   - aeson-1.5.2.0
-  # - apply-refact-0.8.2.1
-  - git: https://github.com/mpickering/apply-refact.git
-    commit: 4fbd3a3a9b408bd31080848feb6b78e13c3eeb6d
+  - apply-refact-0.9.0.0
   - ansi-terminal-0.10.3
   - base-compat-0.10.5
   - brittany-0.13.1.0
@@ -36,10 +34,11 @@ extra-deps:
   - floskell-0.10.4
   - fourmolu-0.3.0.0
   - fuzzy-0.1.0.0
-  # - ghcide-0.1.0
   - ghc-check-0.5.0.1
   - ghc-events-0.13.0
-  - ghc-exactprint-0.6.3.3
+  # - ghc-exactprint-0.6.3.3
+  - git: https://github.com/alanz/ghc-exactprint.git
+    commit: 6748e24da18a6cea985d20cc3e1e7920cb743795
   - ghc-lib-8.10.3.20201220
   - ghc-lib-parser-8.10.3.20201220
   - ghc-lib-parser-ex-8.10.0.17
@@ -80,6 +79,7 @@ extra-deps:
   - these-1.1.1.1
   - type-equality-1
   - topograph-1
+  - uniplate-1.6.13
   - with-utf8-1.0.2.1@sha256:95c02fffa643ddbeb092359802a512007c3e644cd509809f4716ad54592c437b,3057
   - th-env-0.1.0.2@sha256:d8f1f37f42a8f1a22404d7d0579528af18f5dac7232cca6bdbd5117c115a0ad5,1370
 

diff --git a/stack-8.6.5.yaml b/stack-8.6.5.yaml
@@ -20,9 +20,7 @@ ghc-options:
 
 extra-deps:
   - aeson-1.5.2.0
-  # - apply-refact-0.8.2.1
-  - git: https://github.com/mpickering/apply-refact.git
-    commit: 4fbd3a3a9b408bd31080848feb6b78e13c3eeb6d
+  - apply-refact-0.9.0.0
   - ansi-terminal-0.10.3
   - base-compat-0.10.5
   - brittany-0.13.1.0
@@ -35,10 +33,11 @@ extra-deps:
   - floskell-0.10.4
   - fourmolu-0.3.0.0
   - fuzzy-0.1.0.0
-  # - ghcide-0.1.0
   - ghc-check-0.5.0.1
   - ghc-events-0.13.0
-  - ghc-exactprint-0.6.3.3
+  # - ghc-exactprint-0.6.3.3
+  - git: https://github.com/alanz/ghc-exactprint.git
+    commit: 6748e24da18a6cea985d20cc3e1e7920cb743795
   - ghc-lib-8.10.3.20201220
   - ghc-lib-parser-8.10.3.20201220
   - ghc-lib-parser-ex-8.10.0.17
@@ -79,6 +78,7 @@ extra-deps:
   - these-1.1.1.1
   - type-equality-1
   - topograph-1
+  - uniplate-1.6.13
   - with-utf8-1.0.2.1@sha256:95c02fffa643ddbeb092359802a512007c3e644cd509809f4716ad54592c437b,3057
   - th-env-0.1.0.2@sha256:d8f1f37f42a8f1a22404d7d0579528af18f5dac7232cca6bdbd5117c115a0ad5,1370
 

diff --git a/stack-8.8.2.yaml b/stack-8.8.2.yaml
@@ -20,9 +20,7 @@ ghc-options:
 
 extra-deps:
   - aeson-1.5.2.0
-  # - apply-refact-0.8.2.1
-  - git: https://github.com/mpickering/apply-refact.git
-    commit: 4fbd3a3a9b408bd31080848feb6b78e13c3eeb6d
+  - apply-refact-0.9.0.0
   - brittany-0.13.1.0
   - butcher-1.3.3.2
   - bytestring-trie-0.2.5.0
@@ -31,10 +29,11 @@ extra-deps:
   - extra-1.7.3
   - floskell-0.10.4
   - fourmolu-0.3.0.0
-  # - ghcide-0.6.0
   - ghc-check-0.5.0.1
   - ghc-events-0.13.0
-  - ghc-exactprint-0.6.3.3
+  # - ghc-exactprint-0.6.3.3
+  - git: https://github.com/alanz/ghc-exactprint.git
+    commit: 6748e24da18a6cea985d20cc3e1e7920cb743795
   - ghc-lib-8.10.3.20201220
   - ghc-lib-parser-8.10.3.20201220
   - ghc-lib-parser-ex-8.10.0.17
@@ -64,6 +63,7 @@ extra-deps:
   - stylish-haskell-0.12.2.0
   - temporary-1.2.1.1
   - these-1.1.1.1
+  - uniplate-1.6.13
   - with-utf8-1.0.2.1@sha256:95c02fffa643ddbeb092359802a512007c3e644cd509809f4716ad54592c437b,3057
   - th-env-0.1.0.2@sha256:d8f1f37f42a8f1a22404d7d0579528af18f5dac7232cca6bdbd5117c115a0ad5,1370
 

diff --git a/stack-8.8.3.yaml b/stack-8.8.3.yaml
@@ -20,9 +20,7 @@ ghc-options:
 
 extra-deps:
   - aeson-1.5.2.0
-  # - apply-refact-0.8.2.1
-  - git: https://github.com/mpickering/apply-refact.git
-    commit: 4fbd3a3a9b408bd31080848feb6b78e13c3eeb6d
+  - apply-refact-0.9.0.0
   - brittany-0.13.1.0
   - bytestring-trie-0.2.5.0
   - cabal-plan-0.6.2.0
@@ -31,11 +29,14 @@ extra-deps:
   - extra-1.7.3
   - floskell-0.10.4
   - fourmolu-0.3.0.0
-  # - ghcide-0.6.0
-  - ghc-exactprint-0.6.3.3
+  # - ghc-exactprint-0.6.3.3
+  - git: https://github.com/alanz/ghc-exactprint.git
+    commit: 6748e24da18a6cea985d20cc3e1e7920cb743795
   - ghc-lib-8.10.3.20201220
   - ghc-lib-parser-8.10.3.20201220
   - ghc-trace-events-0.1.2.1
+  - haskell-lsp-0.23.0.0
+  - haskell-lsp-types-0.23.0.0
   - haskell-src-exts-1.21.1
   - heapsize-0.3.0
   - hie-bios-0.7.1
@@ -54,12 +55,9 @@ extra-deps:
   - refinery-0.3.0.0
   - retrie-0.1.1.1
   - semigroups-0.18.5
-  # - github: wz1000/shake
-  #   commit: fb3859dca2e54d1bbb2c873e68ed225fa179fbef
   - stylish-haskell-0.12.2.0
   - temporary-1.2.1.1
-  - haskell-lsp-0.23.0.0
-  - haskell-lsp-types-0.23.0.0
+  - uniplate-1.6.13
 
 configure-options:
   ghcide:

diff --git a/stack-8.8.4.yaml b/stack-8.8.4.yaml
@@ -20,21 +20,22 @@ ghc-options:
 
 extra-deps:
   - aeson-1.5.2.0
-  # - apply-refact-0.8.2.1
-  - git: https://github.com/mpickering/apply-refact.git
-    commit: 4fbd3a3a9b408bd31080848feb6b78e13c3eeb6d
+  - apply-refact-0.9.0.0
   - brittany-0.13.1.0
   - bytestring-trie-0.2.5.0
   - cabal-plan-0.6.2.0
   - clock-0.7.2
   - constrained-dynamic-0.1.0.0
   - floskell-0.10.4
   - fourmolu-0.3.0.0
-  # - ghcide-0.6.0
-  - ghc-exactprint-0.6.3.3
+  # - ghc-exactprint-0.6.3.3
+  - git: https://github.com/alanz/ghc-exactprint.git
+    commit: 6748e24da18a6cea985d20cc3e1e7920cb743795
   - ghc-lib-8.10.3.20201220
   - ghc-lib-parser-8.10.3.20201220
   - ghc-trace-events-0.1.2.1
+  - haskell-lsp-0.23.0.0
+  - haskell-lsp-types-0.23.0.0
   - haskell-src-exts-1.21.1
   - heapsize-0.3.0
   - hie-bios-0.7.1
@@ -52,12 +53,9 @@ extra-deps:
   - refinery-0.3.0.0
   - retrie-0.1.1.1
   - semigroups-0.18.5
-  # - github: wz1000/shake
-  #   commit: fb3859dca2e54d1bbb2c873e68ed225fa179fbef
   - stylish-haskell-0.12.2.0
   - temporary-1.2.1.1
-  - haskell-lsp-0.23.0.0
-  - haskell-lsp-types-0.23.0.0
+  - uniplate-1.6.13
 
 configure-options:
   ghcide:

diff --git a/stack.yaml b/stack.yaml
@@ -22,9 +22,7 @@ ghc-options:
 
 extra-deps:
   - aeson-1.5.2.0
-  # - apply-refact-0.8.2.1
-  - git: https://github.com/mpickering/apply-refact.git
-    commit: 4fbd3a3a9b408bd31080848feb6b78e13c3eeb6d
+  - apply-refact-0.9.0.0
   - ansi-terminal-0.10.3
   - base-compat-0.10.5
   - brittany-0.13.1.0
@@ -37,10 +35,11 @@ extra-deps:
   - floskell-0.10.4
   - fourmolu-0.3.0.0
   - fuzzy-0.1.0.0
-  # - ghcide-0.1.0
   - ghc-check-0.5.0.1
   - ghc-events-0.13.0
-  - ghc-exactprint-0.6.3.3
+  # - ghc-exactprint-0.6.3.3
+  - git: https://github.com/alanz/ghc-exactprint.git
+    commit: 6748e24da18a6cea985d20cc3e1e7920cb743795
   - ghc-lib-8.10.3.20201220
   - ghc-lib-parser-8.10.3.20201220
   - ghc-lib-parser-ex-8.10.0.17
@@ -81,6 +80,7 @@ extra-deps:
   - these-1.1.1.1
   - type-equality-1
   - topograph-1
+  - uniplate-1.6.13
   - with-utf8-1.0.2.1@sha256:95c02fffa643ddbeb092359802a512007c3e644cd509809f4716ad54592c437b,3057
   - th-env-0.1.0.2@sha256:d8f1f37f42a8f1a22404d7d0579528af18f5dac7232cca6bdbd5117c115a0ad5,1370