diff options
Diffstat (limited to 'utils/hpc/HpcMarkup.hs')
| -rw-r--r-- | utils/hpc/HpcMarkup.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/utils/hpc/HpcMarkup.hs b/utils/hpc/HpcMarkup.hs index e618b25ba8..df7e43b5ea 100644 --- a/utils/hpc/HpcMarkup.hs +++ b/utils/hpc/HpcMarkup.hs @@ -17,6 +17,7 @@ import Data.List import Data.Maybe(fromJust) import Data.Array import Data.Monoid +import Control.Monad import qualified HpcSet as Set ------------------------------------------------------------------------------ @@ -453,7 +454,8 @@ writeFileUsing filename text = do #if __GLASGOW_HASKELL__ >= 604 -- create the dest_dir if needed - createDirectoryIfMissing True dest_dir + when (not (null dest_dir)) $ + createDirectoryIfMissing True dest_dir #endif writeFile filename text |