Create man directory if it doesn't exist

It may be missing when destdir is altered to prepare a binary release.

1 files changed, 4 insertions, 2 deletions

diff --git a/Setup.hs b/Setup.hs
index 1af2e43..e07df74 100644
--- a/Setup.hs
+++ b/Setup.hs
@@ -4,6 +4,7 @@ import Distribution.Simple.Utils
 import Distribution.PackageDescription
 import Distribution.Simple.Setup
 import System.FilePath
+import System.Directory
 
 main = defaultMainWithHooks simpleUserHooks { postCopy = installManPage }
 
@@ -12,9 +13,10 @@ installManPage :: Args
                -> PackageDescription
                -> LocalBuildInfo
                -> IO ()
-installManPage _ cf pd lbi =
+installManPage _ cf pd lbi = do
   let dirs = absoluteInstallDirs pd lbi (fromFlag $ copyDest cf)
       man1 = mandir dirs </> "man1"
       fname = "pancake.1"
       target = man1 </> fname
-  in installOrdinaryFile (fromFlag $ copyVerbosity cf) fname target
+  createDirectoryIfMissing True man1
+  installOrdinaryFile (fromFlag $ copyVerbosity cf) fname target