Skip to content

Commit

Permalink
clean up comment and fromMaybe
Browse files Browse the repository at this point in the history
  • Loading branch information
pepeiborra committed Jun 6, 2021
1 parent 41a3c7f commit 6bd3338
Showing 1 changed file with 1 addition and 3 deletions.
4 changes: 1 addition & 3 deletions ghcide/src/Development/IDE/Main.hs
Original file line number Diff line number Diff line change
Expand Up @@ -210,14 +210,12 @@ defaultMain Arguments{..} = do

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


sessionLoader <- loadSessionWithOptions argsSessionLoadingOptions $ fromMaybe dir rootPath
sessionLoader <- loadSessionWithOptions argsSessionLoadingOptions dir
config <- LSP.runLspT env LSP.getConfig
let def_options = argsIdeOptions config sessionLoader

Expand Down

0 comments on commit 6bd3338

Please sign in to comment.