X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=utils%2Fhpc%2FHpcMarkup.hs;fp=utils%2Fhpc%2FHpcMarkup.hs;h=df7e43b5eaa6f77e72ebee4c63268e690a17b0a4;hb=dc2a2f0673661e8a9414191c318f54cf374fbfbd;hp=e618b25ba8989acc6998e6b172c72f5396478f1e;hpb=ab6f7888dfc275d3e8528465ecb058e2f2e8d8a3;p=ghc-hetmet.git

diff --git a/utils/hpc/HpcMarkup.hs b/utils/hpc/HpcMarkup.hs
index e618b25..df7e43b 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