From 32d74bdc904d99eb59b850ec1925f67d3cd8b14d Mon Sep 17 00:00:00 2001
From: Simon Marlow <simonmar@microsoft.com>
Date: Thu, 27 Sep 2007 10:25:39 +0000
Subject: [PATCH] further stub filename fix: I managed to break non-stubdir
 -fvia-C compilation

---
 compiler/main/Finder.lhs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/main/Finder.lhs b/compiler/main/Finder.lhs
index 25bf90c..5419112 100644
--- 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",
-- 
1.7.10.4