From: Simon Marlow <simonmar@microsoft.com>
Date: Thu, 27 Sep 2007 10:25:39 +0000 (+0000)
Subject: further stub filename fix: I managed to break non-stubdir -fvia-C compilation
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=32d74bdc904d99eb59b850ec1925f67d3cd8b14d;p=ghc-hetmet.git

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

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",