Commit dde771de authored by Ian Lynagh's avatar Ian Lynagh
Browse files

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
parent a92fd1ca
...@@ -275,7 +275,9 @@ insertSuffixes ...@@ -275,7 +275,9 @@ insertSuffixes
insertSuffixes file_name extras insertSuffixes file_name extras
= file_name : [ basename <.> (extra ++ "_" ++ suffix) | extra <- extras ] = file_name : [ basename <.> (extra ++ "_" ++ suffix) | extra <- extras ]
where where
(basename, suffix) = splitExtension file_name (basename, suffix) = case splitExtension file_name of
-- Drop the "." from the extension
(b, s) -> (b, drop 1 s)
----------------------------------------------------------------- -----------------------------------------------------------------
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment