1
1
mirror of https://github.com/github/semantic.git synced 2024-12-25 16:02:43 +03:00
semantic/Setup.hs
2016-01-08 13:24:25 -05:00

29 lines
1.1 KiB
Haskell

import Data.Maybe
import qualified Distribution.PackageDescription as P
import Distribution.Simple
import Distribution.Simple.LocalBuildInfo
import Distribution.Simple.Setup
import System.Directory
import System.Process
main = defaultMainWithHooks simpleUserHooks { confHook = conf }
conf :: (P.GenericPackageDescription, P.HookedBuildInfo) -> ConfigFlags -> IO LocalBuildInfo
conf x flags = do
localBuildInfo <- confHook simpleUserHooks x flags
let packageDescription = localPkgDescr localBuildInfo
library = fromJust $ P.library packageDescription
libraryBuildInfo = P.libBuildInfo library
relativeIncludeDirs = [ "common", "i18n" ] in do
dir <- getCurrentDirectory
return localBuildInfo {
localPkgDescr = packageDescription {
P.library = Just $ library {
P.libBuildInfo = libraryBuildInfo {
P.extraLibDirs = (dir ++ "/vendor/icu/lib") : P.extraLibDirs libraryBuildInfo,
P.includeDirs = (((dir ++ "/vendor/icu/source/") ++) <$> relativeIncludeDirs) ++ P.includeDirs libraryBuildInfo
}
}
}
}