[project @ 2003-08-20 15:07:56 by simonmar]

[ghc-hetmet.git] / ghc / compiler / main / Finder.lhs

diff --git a/ghc/compiler/main/Finder.lhs b/ghc/compiler/main/Finder.lhs
index 2a97fd9..d73cba3 100644 (file)
--- a/ghc/compiler/main/Finder.lhs
+++ b/ghc/compiler/main/Finder.lhs
@@ -278,7 +278,7 @@ mkHomeModLocation mod_name src_filename = do
    let mod_basename = dots_to_slashes (moduleNameUserString mod_name)
        (basename,extension) = splitFilename src_filename
 
-   case my_prefix_match (reverse mod_basename) (reverse basename) of
+   case maybePrefixMatch (reverse mod_basename) (reverse basename) of
        Just ""   ->
           mkHomeModLocationSearched mod_name "."  mod_basename extension
        Just rest -> do