X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=utils%2Fhpc%2FHpcMarkup.hs;h=001ec295543a1e96c7fbdb0a3644db5166636a74;hb=8a2809c29de9f23eba7ca682b48390033a9d40f6;hp=a46fd799eb1c0f9d3e6fb55eda987b42e30bfa8b;hpb=78a1b71ccc5a99711f434dae99dd892c920324fe;p=ghc-hetmet.git

diff --git a/utils/hpc/HpcMarkup.hs b/utils/hpc/HpcMarkup.hs
index a46fd79..001ec29 100644
--- a/utils/hpc/HpcMarkup.hs
+++ b/utils/hpc/HpcMarkup.hs
@@ -16,14 +16,16 @@ import System.Directory
 import Data.List
 import Data.Maybe(fromJust)
 import Data.Array
-import qualified Data.Set as Set
+import qualified HpcSet as Set
 
 ------------------------------------------------------------------------------
 
 markup_options = 
   [ excludeOpt,includeOpt,hpcDirOpt,hsDirOpt,funTotalsOpt
   , altHighlightOpt
+#if __GLASGOW_HASKELL__ >= 604 
   , destDirOpt
+#endif
   ]
        	 
 markup_plugin = Plugin { name = "markup"
@@ -56,8 +58,10 @@ markup_main flags (prog:modNames) = do
     Nothing -> error $ "unable to find tix file for: " ++ prog
     Just a -> return a
 
+#if __GLASGOW_HASKELL__ >= 604 
   -- create the dest_dir if needed
   createDirectoryIfMissing True dest_dir
+#endif
 
   mods <-
      sequence [ genHtmlFromMod dest_dir hpcDirs tix theFunTotals theHsPath invertOutput