From: Ian Lynagh <igloo@earth.li>
Date: Tue, 15 Jan 2008 20:47:16 +0000 (+0000)
Subject: Fix generating dependencies for different ways now we use FilePath
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=dde771de24f0e02d00867e79f7c68e526475d7c6

Fix generating dependencies for different ways now we use FilePath
We were making filenames like
dist/build/GHC/Base.p_.o
rather than
dist/build/GHC/Base.p_o
---

diff --git a/compiler/main/DriverMkDepend.hs b/compiler/main/DriverMkDepend.hs
index aad9b8a..ffafcca 100644
--- a/compiler/main/DriverMkDepend.hs
+++ b/compiler/main/DriverMkDepend.hs
@@ -275,7 +275,9 @@ insertSuffixes
 insertSuffixes file_name extras
   = file_name : [ basename <.> (extra ++ "_" ++ suffix) | extra <- extras ]
   where
-    (basename, suffix) = splitExtension file_name
+    (basename, suffix) = case splitExtension file_name of
+                         -- Drop the "." from the extension
+                         (b, s) -> (b, drop 1 s)
 
 
 -----------------------------------------------------------------