From d744b83b61bc635419339b73b687b9280ee757fc Mon Sep 17 00:00:00 2001
From: Nikolay Yakimov <root@livid.pp.ru>
Date: Wed, 18 Mar 2015 22:33:16 +0300
Subject: Create reference files from unpacked archives with helper program

---
 Setup.hs | 26 +++++++++++++++++++++-----
 1 file changed, 21 insertions(+), 5 deletions(-)

(limited to 'Setup.hs')

diff --git a/Setup.hs b/Setup.hs
index 7777a5133..868fe901e 100644
--- a/Setup.hs
+++ b/Setup.hs
@@ -22,7 +22,10 @@ import Distribution.PackageDescription (PackageDescription(..), Executable(..))
 import System.Process ( rawSystem )
 import System.FilePath ( (</>) )
 import System.Directory ( findExecutable )
-import Distribution.Simple.Utils (info)
+import Distribution.Simple.Utils (info, rawSystemExit)
+import Distribution.Simple.Setup
+import Distribution.Simple.LocalBuildInfo
+import Distribution.Verbosity
 
 main :: IO ()
 main = defaultMainWithHooks $ simpleUserHooks {
@@ -30,12 +33,15 @@ main = defaultMainWithHooks $ simpleUserHooks {
       hookedPreProcessors = [ppBlobSuffixHandler]
       -- ensure that make-pandoc-man-pages doesn't get installed to bindir
     , copyHook = \pkgdescr ->
-         (copyHook simpleUserHooks) pkgdescr{ executables =
-            [x | x <- executables pkgdescr, exeName x /= "make-pandoc-man-pages"] }
+         copyHook simpleUserHooks pkgdescr{ executables =
+            [x | x <- executables pkgdescr, exeName x `notElem` noInstall] }
     , instHook = \pkgdescr ->
-         (instHook simpleUserHooks) pkgdescr{ executables =
-            [x | x <- executables pkgdescr, exeName x /= "make-pandoc-man-pages"] }
+         instHook simpleUserHooks pkgdescr{ executables =
+            [x | x <- executables pkgdescr, exeName x `notElem` noInstall] }
+    , postBuild = makeReferenceFiles
     }
+  where
+    noInstall = ["make-pandoc-man-pages","make-reference-files"]
 
 ppBlobSuffixHandler :: PPSuffixHandler
 ppBlobSuffixHandler = ("hsb", \_ _ ->
@@ -49,3 +55,13 @@ ppBlobSuffixHandler = ("hsb", \_ _ ->
             Nothing -> error "hsb2hs is needed to build this program: cabal install hsb2hs"
          return ()
   })
+
+makeReferenceFiles :: Args -> BuildFlags -> PackageDescription -> LocalBuildInfo -> IO ()
+makeReferenceFiles _ bf _ LocalBuildInfo{buildDir=buildDir}
+  = mapM_
+      (rawSystemExit verbosity progPath . return)
+      referenceFormats
+  where
+    verbosity = fromFlagOrDefault normal $ buildVerbosity bf
+    progPath = buildDir </> "make-reference-files" </> "make-reference-files"
+    referenceFormats = ["docx", "odt"]
-- 
cgit v1.2.3