From: sewardj <unknown>
Date: Wed, 15 Nov 2000 09:58:00 +0000 (+0000)
Subject: [project @ 2000-11-15 09:58:00 by sewardj]
X-Git-Tag: Approximately_9120_patches~3338
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=98bae87d4eafdca83c2d8acf039c88cd4e120f2f;p=ghc-hetmet.git

[project @ 2000-11-15 09:58:00 by sewardj]
Fix z-encoding problem in findDependency (moduleNameString ->
moduleNameUserString).
---

diff --git a/ghc/compiler/main/DriverMkDepend.hs b/ghc/compiler/main/DriverMkDepend.hs
index 525d70e..27fd43c 100644
--- a/ghc/compiler/main/DriverMkDepend.hs
+++ b/ghc/compiler/main/DriverMkDepend.hs
@@ -1,5 +1,5 @@
 -----------------------------------------------------------------------------
--- $Id: DriverMkDepend.hs,v 1.3 2000/10/26 16:21:02 sewardj Exp $
+-- $Id: DriverMkDepend.hs,v 1.4 2000/11/15 09:58:00 sewardj Exp $
 --
 -- GHC Driver
 --
@@ -173,8 +173,8 @@ findDependency mod imp = do
    let
      (imp_mod, is_source) = 
 	case imp of
-	   MINormal str -> (moduleNameString str, False)
-	   MISource str -> (moduleNameString str, True )	
+	   MINormal str -> (moduleNameUserString str, False)
+	   MISource str -> (moduleNameUserString str, True )	
 
      imp_hi = imp_mod ++ '.':hisuf
      imp_hiboot = imp_mod ++ ".hi-boot"