From a4dc192bf3b65166b05b264c90fbd193258103a2 Mon Sep 17 00:00:00 2001
From: Daniel Gröber <dxld@darkboxed.org>
Date: Wed, 11 Mar 2015 16:00:28 +0100
Subject: Initial commit

---
 Setup.hs | 70 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 70 insertions(+)
 create mode 100644 Setup.hs

(limited to 'Setup.hs')

diff --git a/Setup.hs b/Setup.hs
new file mode 100644
index 0000000..05a0ae1
--- /dev/null
+++ b/Setup.hs
@@ -0,0 +1,70 @@
+#!/usr/bin/env runhaskell
+{-# LANGUAGE RecordWildCards #-}
+import Distribution.Simple
+import Distribution.Simple.Setup
+import Distribution.Simple.Install
+import Distribution.Simple.InstallDirs as ID
+import Distribution.Simple.LocalBuildInfo
+import Distribution.PackageDescription
+
+import Control.Applicative
+import Data.List
+import Data.Maybe
+import System.FilePath
+
+main :: IO ()
+main = defaultMainWithHooks $ simpleUserHooks { copyHook = xInstallTargetHook }
+
+xInstallTargetHook ::
+    PackageDescription -> LocalBuildInfo -> UserHooks -> CopyFlags -> IO ()
+xInstallTargetHook pd lbi _uh cf = do
+  let (extended, regular) = partition (isJust . installTarget) (executables pd)
+
+  let pd_regular = pd { executables = regular }
+
+  _ <- flip mapM extended $ \exe -> do
+    putStrLn $ "extended "  ++ show (exeName exe)
+
+    let
+        idirtpl          = installDirTemplates lbi
+        env              = installDirsTemplateEnv idirtpl
+        libexecdir'      = fromPathTemplate (libexecdir idirtpl)
+
+        pd_extended      = onlyExePackageDesc [exe] pd
+        install_target   = fromJust $ installTarget exe
+        install_target'  = ID.substPathTemplate env install_target
+        -- $libexec isn't a real thing :/ so we have to simulate it
+        install_target'' = substLibExec' libexecdir' install_target'
+
+    let lbi' = lbi {
+                 installDirTemplates =
+                     (installDirTemplates lbi) {
+                   bindir = install_target''
+                 }
+               }
+
+    install pd_extended lbi' cf
+
+  install pd_regular lbi cf
+
+ where
+   installTarget :: Executable -> Maybe PathTemplate
+   installTarget exe =
+    toPathTemplate <$> lookup "x-install-target" (customFieldsBI $ buildInfo exe)
+
+   substLibExec libexecdir "$libexecdir" = libexecdir
+   substLibExec _ comp = comp
+
+   substLibExec' dir =
+       withPT $
+           withSP $ map (substLibExec dir . dropTrailingPathSeparator)
+
+
+   withPT f pt = toPathTemplate $ f (fromPathTemplate pt)
+   withSP f p  = joinPath $ f (splitPath p)
+
+onlyExePackageDesc :: [Executable] -> PackageDescription -> PackageDescription
+onlyExePackageDesc exes pd = emptyPackageDescription {
+                     package = package pd
+                   , executables = exes
+                   }
-- 
cgit v1.2.3