X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fmain%2FGHC.hs;h=047781ededaa01d347ffb352e5a492056301a002;hb=16dc208aaad7aadaea970e47b8055d7d7f8781e5;hp=d54794b37e35a8c83be7b4c7546090b213cd0ca7;hpb=81f944da0ed9da6116800aeb575d6ea2a1937ac4;p=ghc-hetmet.git

diff --git a/compiler/main/GHC.hs b/compiler/main/GHC.hs
index d54794b..047781e 100644
--- a/compiler/main/GHC.hs
+++ b/compiler/main/GHC.hs
@@ -636,7 +636,7 @@ load2 s@(Session ref) how_much mod_graph = do
 	    partial_mg
 		| LoadDependenciesOf _mod <- how_much
 		= ASSERT( case last partial_mg0 of 
-			    AcyclicSCC ms -> ms_mod_name ms == mod; _ -> False )
+			    AcyclicSCC ms -> ms_mod_name ms == _mod; _ -> False )
 		  List.init partial_mg0
 		| otherwise
 		= partial_mg0