X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fmain%2FCodeOutput.lhs;h=d6e130946c4bce494c60c96d9c80b7082a765fdb;hp=e7e818fa50b3d255a08141ca7750d2015bdb663e;hb=7eb5e29b4a7b6fef55512bc7bf3308e712ca3eba;hpb=b70f35afc1c606dc85e6feb7da74be72411f58c1

diff --git a/compiler/main/CodeOutput.lhs b/compiler/main/CodeOutput.lhs
index e7e818f..d6e1309 100644
--- 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