From 0c289bbcef85183044c6c6f9562817c7961d457a Mon Sep 17 00:00:00 2001
From: "andygill@ku.edu" <unknown>
Date: Tue, 16 Sep 2008 17:23:13 +0000
Subject: [PATCH] Fixing directory creation to not create "" directories inside
 hpc report (harmless but needless)

---
 HpcMarkup.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/HpcMarkup.hs b/HpcMarkup.hs
index e618b25..df7e43b 100644
--- a/HpcMarkup.hs
+++ b/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
-- 
GitLab