Commit dc2a2f06 authored by's avatar
Browse files

Fixing directory creation to not create "" directories inside hpc report (harmless but needless)

parent ab6f7888
......@@ -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
writeFile filename text
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