diff --git a/compiler/GHC.hs b/compiler/GHC.hs index 129f8ecb078b4fe8901baf16798327f0a3685cb3..994db7ee9f6344d9767207ad4a20073eda4c1a62 100644 --- a/compiler/GHC.hs +++ b/compiler/GHC.hs @@ -689,11 +689,7 @@ setTopSessionDynFlags dflags = do #if defined(wasm32_HOST_ARCH) let libdir = sorry "cannot spawn child process on wasm" #else - libdir <- liftIO $ do - libdirs <- Loader.getGccSearchDirectory logger dflags "libraries" - case libdirs of - [_, libdir] -> pure libdir - _ -> panic "corrupted wasi-sdk installation" + libdir <- liftIO $ last <$> Loader.getGccSearchDirectory logger dflags "libraries" #endif let profiled = ways dflags `hasWay` WayProf way_tag = if profiled then "_p" else ""