further stub filename fix: I managed to break non-stubdir -fvia-C compilation

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

diff --git a/compiler/main/Finder.lhs b/compiler/main/Finder.lhs
index 25bf90c..5419112 100644 (file)
--- a/compiler/main/Finder.lhs
+++ b/compiler/main/Finder.lhs
@@ -495,7 +495,7 @@ mkStubPaths dflags mod location
                 -- -I<dir> along with -stubdir <dir>.
                 include_basename
                         | Just _ <- stubdir = mod_basename 
-                        | otherwise         = filenameOf mod_basename
+                        | otherwise         = filenameOf src_basename
      in
         (stub_basename `joinFileExt` "c",
         stub_basename `joinFileExt` "h",