Fix: Set CWD to containing directory, rather than file

georgefst · georgefst · commit 74cab28e8826 · 2022-03-10T00:39:05.000Z
diff --git a/plugins/hls-fourmolu-plugin/src/Ide/Plugin/Fourmolu.hs b/plugins/hls-fourmolu-plugin/src/Ide/Plugin/Fourmolu.hs
@@ -69,7 +69,7 @@ provider plId ideState typ contents fp fo = withIndefiniteProgress title Cancell
                                     , ("--end-line=" <>) . show <$> regionEndLine region
                                     ]
                                 <> map ("-o" <>) fileOpts
-                        ){cwd = Just fp'}
+                        ){cwd = Just $ takeDirectory fp'}
                         contents
                 T.hPutStrLn stderr err
                 case exitCode of

Original file line number	Diff line number	Diff line change
`@@ -69,7 +69,7 @@ provider plId ideState typ contents fp fo = withIndefiniteProgress title Cancell`
`69`	`69`	`, ("--end-line=" <>) . show <$> regionEndLine region`
`70`	`70`	`]`
`71`	`71`	`<> map ("-o" <>) fileOpts`
`72`		`- ){cwd = Just fp'}`
	`72`	`+ ){cwd = Just $ takeDirectory fp'}`
`73`	`73`	`contents`
`74`	`74`	`T.hPutStrLn stderr err`
`75`	`75`	`case exitCode of`