From 898eb1d85b2a77831c80e68f6e66cbb46a5dc2c9 Mon Sep 17 00:00:00 2001 From: Patrick Palka Date: Thu, 1 Nov 2012 16:09:23 -0400 Subject: [PATCH 2/2] Don't call the system linker if no objects need linking (#7382) --- compiler/ghci/Linker.lhs | 1 + 1 file changed, 1 insertion(+) diff --git a/compiler/ghci/Linker.lhs b/compiler/ghci/Linker.lhs index 16bf7fd..f77b5af 100644 --- a/compiler/ghci/Linker.lhs +++ b/compiler/ghci/Linker.lhs @@ -808,6 +808,7 @@ dynLinkObjs dflags pls objs = do return (pls2, Failed) dynLoadObjs :: DynFlags -> [FilePath] -> IO () +dynLoadObjs _ [] = return () dynLoadObjs dflags objs = do let platform = targetPlatform dflags soFile <- newTempName dflags (soExt platform) -- 1.7.10.4