Use System.FilePath

[ghc-hetmet.git] / compiler / main / CodeOutput.lhs

diff --git a/compiler/main/CodeOutput.lhs b/compiler/main/CodeOutput.lhs
index e7e818f..d6e1309 100644 (file)
--- a/compiler/main/CodeOutput.lhs
+++ b/compiler/main/CodeOutput.lhs
@@ -39,6 +39,7 @@ import Distribution.Package   ( showPackageId )
 import Directory       ( doesFileExist )
 import Monad           ( when )
 import IO
+import System.FilePath
 \end{code}
 
 %************************************************************************
@@ -235,7 +236,7 @@ outputForeignStubs dflags mod location stubs
            stub_h_output_w = showSDoc stub_h_output_d
        -- in
 
-       createDirectoryHierarchy (directoryOf stub_c)
+       createDirectoryHierarchy (takeDirectory stub_c)
 
        dumpIfSet_dyn dflags Opt_D_dump_foreign
                       "Foreign export header file" stub_h_output_d