X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fmain%2FDriverState.hs;fp=ghc%2Fcompiler%2Fmain%2FDriverState.hs;h=392ed140982b6b7c6f3f51fd0a5967dac9b0fad3;hb=a2a9410c4d310e2a7a7fd2a59775b442609d7a57;hp=71b61d9857c9c056c93995cc768772550228c838;hpb=b5330f142899721cbd48d3a2eb508ddfc78df235;p=ghc-hetmet.git

diff --git a/ghc/compiler/main/DriverState.hs b/ghc/compiler/main/DriverState.hs
index 71b61d9..392ed14 100644
--- a/ghc/compiler/main/DriverState.hs
+++ b/ghc/compiler/main/DriverState.hs
@@ -78,9 +78,11 @@ isInterpretiveMode _             = False
 isMakeMode DoMake = True
 isMakeMode _      = False
 
-isLinkMode (StopBefore p) = True
-isLinkMode DoMake	  = True
-isLinkMode _   		  = False
+-- True if we are going to attempt to link in this mode.
+-- (we might not actually link, depending on the GhcLink flag)
+isLinkMode (StopBefore StopLn) = True
+isLinkMode DoMake	       = True
+isLinkMode _   		       = False
 
 isCompManagerMode DoMake        = True
 isCompManagerMode DoInteractive = True