[project @ 2001-05-31 11:32:25 by simonmar]

[ghc-hetmet.git] / ghc / compiler / rename / RnHiFiles.lhs

diff --git a/ghc/compiler/rename/RnHiFiles.lhs b/ghc/compiler/rename/RnHiFiles.lhs
index 6d4f26f..7e2a3db 100644 (file)
--- a/ghc/compiler/rename/RnHiFiles.lhs
+++ b/ghc/compiler/rename/RnHiFiles.lhs
@@ -522,7 +522,7 @@ mkHiPath hi_boot_file locn
        if b then returnRn hi_boot_ver_path
             else returnRn hi_boot_path
   | otherwise    = returnRn hi_path
-       where (Just hi_path)     = ml_hi_file locn
+       where hi_path            = ml_hi_file locn
              (hi_base, _hi_suf) = splitFilename hi_path
              hi_boot_path       = hi_base ++ ".hi-boot"
              hi_boot_ver_path   = hi_base ++ ".hi-boot-" ++ cHscIfaceFileVersion