diff --git a/exe/Wrapper.hs b/exe/Wrapper.hs index 4d262f4b44..61dc26cd99 100644 --- a/exe/Wrapper.hs +++ b/exe/Wrapper.hs @@ -47,6 +47,8 @@ main = do launchHaskellLanguageServer :: LspArguments -> IO () launchHaskellLanguageServer LspArguments{..} = do + whenJust argsCwd setCurrentDirectory + d <- getCurrentDirectory -- Get the cabal directory from the cradle @@ -55,8 +57,6 @@ launchHaskellLanguageServer LspArguments{..} = do when argsProjectGhcVersion $ getRuntimeGhcVersion' cradle >>= putStrLn >> exitSuccess - whenJust argsCwd setCurrentDirectory - progName <- getProgName hPutStrLn stderr $ "Run entered for haskell-language-server-wrapper(" ++ progName ++ ") " ++ hlsVersion