X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=utils%2Fhpc%2FHpcMarkup.hs;h=46e17090f4d7b866237891756d74fdefecaa423f;hb=1f7ab811c4421458568b0ed900b496192fee885b;hp=ea6f4366acdb9c1d926d5d83ba2173fbf7871d66;hpb=c2792423039fc62d809bb56a5f9f57494d05176b;p=ghc-hetmet.git

diff --git a/utils/hpc/HpcMarkup.hs b/utils/hpc/HpcMarkup.hs
index ea6f436..46e1709 100644
--- a/utils/hpc/HpcMarkup.hs
+++ b/utils/hpc/HpcMarkup.hs
@@ -18,7 +18,7 @@ import Data.Maybe(fromJust)
 import Data.Array
 import Data.Monoid
 import Control.Monad
-import qualified HpcSet as Set
+import qualified Data.Set as Set
 
 ------------------------------------------------------------------------------
 
@@ -452,11 +452,9 @@ writeFileUsing filename text = do
 -- packages, and a single .tix file might contain information about
 -- many package.
 
-#if __GLASGOW_HASKELL__ >= 604
   -- create the dest_dir if needed
   when (not (null dest_dir)) $
     createDirectoryIfMissing True dest_dir
-#endif
 
   writeFile filename text