X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fmain%2FFinder.lhs;h=d73cba3874f3b3caeb0a8af87963e87351d19e19;hb=4be58768d4974fd1bddae44f12a0fde1f7fe6b30;hp=2a97fd9f6e58e9f049cebe6f536db087092085c3;hpb=18074d6acde6d642b8fb10b1b49153f717c75446;p=ghc-hetmet.git

diff --git a/ghc/compiler/main/Finder.lhs b/ghc/compiler/main/Finder.lhs
index 2a97fd9..d73cba3 100644
--- 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