Commit dde771de authored by Ian Lynagh's avatar Ian Lynagh

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
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)
-----------------------------------------------------------------
......
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