diff options
| author | sewardj <unknown> | 2000-11-15 09:58:00 +0000 |
|---|---|---|
| committer | sewardj <unknown> | 2000-11-15 09:58:00 +0000 |
| commit | 98bae87d4eafdca83c2d8acf039c88cd4e120f2f (patch) | |
| tree | 1d7e177accb8622cc06d87216c4e9aad90aff594 | |
| parent | 00fe57d46c18e83674cc17c77643164289abdef5 (diff) | |
| download | haskell-98bae87d4eafdca83c2d8acf039c88cd4e120f2f.tar.gz | |
[project @ 2000-11-15 09:58:00 by sewardj]
Fix z-encoding problem in findDependency (moduleNameString ->
moduleNameUserString).
| -rw-r--r-- | ghc/compiler/main/DriverMkDepend.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/ghc/compiler/main/DriverMkDepend.hs b/ghc/compiler/main/DriverMkDepend.hs index 525d70e20e..27fd43cf7f 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" |