Skip to content

Commit f8531df

Browse files
committed
clean up comment and fromMaybe
1 parent 40c77a3 commit f8531df

File tree

1 file changed

+1
-3
lines changed

1 file changed

+1
-3
lines changed

ghcide/src/Development/IDE/Main.hs

Lines changed: 1 addition & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -210,14 +210,12 @@ defaultMain Arguments{..} = do
210210

211211
-- We want to set the global DynFlags right now, so that we can use
212212
-- `unsafeGlobalDynFlags` even before the project is configured
213-
-- We do it here since haskell-lsp changes our working directory to the correct place ('rootPath')
214-
-- before calling this function
215213
_mlibdir <-
216214
setInitialDynFlags dir argsSessionLoadingOptions
217215
`catchAny` (\e -> (hPutStrLn stderr $ "setInitialDynFlags: " ++ displayException e) >> pure Nothing)
218216

219217

220-
sessionLoader <- loadSessionWithOptions argsSessionLoadingOptions $ fromMaybe dir rootPath
218+
sessionLoader <- loadSessionWithOptions argsSessionLoadingOptions dir
221219
config <- LSP.runLspT env LSP.getConfig
222220
let def_options = argsIdeOptions config sessionLoader
223221

0 commit comments

Comments
 (0)