diff options
| author | Ian Lynagh <igloo@earth.li> | 2008-01-15 20:47:16 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2008-01-15 20:47:16 +0000 |
| commit | dde771de24f0e02d00867e79f7c68e526475d7c6 (patch) | |
| tree | bd7c7468f7843e9022733382f8056d017d7d9de6 /compiler/main/DriverMkDepend.hs | |
| parent | a92fd1cad41b24fc0555aa95900b74fe7d07a9a3 (diff) | |
| download | haskell-dde771de24f0e02d00867e79f7c68e526475d7c6.tar.gz | |
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
Diffstat (limited to 'compiler/main/DriverMkDepend.hs')
| -rw-r--r-- | compiler/main/DriverMkDepend.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/compiler/main/DriverMkDepend.hs b/compiler/main/DriverMkDepend.hs index aad9b8a574..ffafccaffb 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) ----------------------------------------------------------------- |