Merge remote-tracking branch 'mrhania/testing-framework-improvements' into ghc-head

1 files changed, 3 insertions, 0 deletions

diff --git a/haddock-api/src/Haddock/Backends/Hoogle.hs b/haddock-api/src/Haddock/Backends/Hoogle.hs
index a9bc9a8b..f3749a85 100644
--- a/haddock-api/src/Haddock/Backends/Hoogle.hs
+++ b/haddock-api/src/Haddock/Backends/Hoogle.hs
@@ -29,6 +29,8 @@ import Data.Char
 import Data.List
 import Data.Maybe
 import Data.Version
+
+import System.Directory
 import System.FilePath
 import System.IO
 
@@ -47,6 +49,7 @@ ppHoogle dflags package version synopsis prologue ifaces odir = do
                    ["@version " ++ showVersion version
                    | not (null (versionBranch version)) ] ++
                    concat [ppModule dflags i | i <- ifaces, OptHide `notElem` ifaceOptions i]
+    createDirectoryIfMissing True odir
     h <- openFile (odir </> filename) WriteMode
     hSetEncoding h utf8
     hPutStr h (unlines contents)