diff options
| m--------- | libraries/hpc | 0 | ||||
| -rw-r--r-- | utils/hpc/HpcMarkup.hs | 5 |
2 files changed, 1 insertions, 4 deletions
diff --git a/libraries/hpc b/libraries/hpc -Subproject da5928ccf4e369f6985ef291351d074918b8801 +Subproject 315b78ac8fe7b42912d2146783b0366f6b0e950 diff --git a/utils/hpc/HpcMarkup.hs b/utils/hpc/HpcMarkup.hs index 31327fc991..fb68eacef7 100644 --- a/utils/hpc/HpcMarkup.hs +++ b/utils/hpc/HpcMarkup.hs @@ -479,15 +479,12 @@ instance Monoid ModuleSummary where writeFileUsing :: String -> String -> IO () writeFileUsing filename text = do - let dest_dir = dropWhileEndLE (\ x -> x /= '/') $ filename - -- We need to check for the dest_dir each time, because we use sub-dirs for -- packages, and a single .tix file might contain information about -- many package. -- create the dest_dir if needed - when (not (null dest_dir)) $ - createDirectoryIfMissing True dest_dir + createDirectoryIfMissing True (takeDirectory filename) writeFile filename text |