Install and enable a few uncluttering XSLTs by default

1 files changed, 17 insertions, 11 deletions

diff --git a/Setup.hs b/Setup.hs
index 1a01025..0015f6c 100644
--- a/Setup.hs
+++ b/Setup.hs
@@ -23,18 +23,24 @@ import Distribution.Simple.Setup
 import System.FilePath
 import System.Directory
 
-main = defaultMainWithHooks simpleUserHooks { postCopy = installManPage }
+main = defaultMainWithHooks simpleUserHooks { postCopy = installExtras }
 
 -- | Installs pancake.1.
-installManPage :: Args
-               -> CopyFlags
-               -> PackageDescription
-               -> LocalBuildInfo
-               -> IO ()
-installManPage _ cf pd lbi = do
+installExtras :: Args
+              -> CopyFlags
+              -> PackageDescription
+              -> LocalBuildInfo
+              -> IO ()
+installExtras _ cf pd lbi = do
   let dirs = absoluteInstallDirs pd lbi (fromFlag $ copyDest cf)
-      man1 = mandir dirs </> "man1"
-      fname = "pancake.1"
-      target = man1 </> fname
+      verbosity = fromFlag $ copyVerbosity cf
+      -- todo: use absoluteComponentInstallDirs once will switch to
+      -- cabal 2, e.g.:
+      -- absoluteComponentInstallDirs pd lbi (localUnitId lbi)
+      --   (fromFlag $ copyDest cf)
+  -- install man page
+  let man1 = mandir dirs </> "man1"
+      manFileName = "pancake.1"
+      manTarget = man1 </> manFileName
   createDirectoryIfMissing True man1
-  installOrdinaryFile (fromFlag $ copyVerbosity cf) fname target
+  installOrdinaryFile verbosity manFileName manTarget