lhc-0.10: lhc-pkg/Main.hs

module Main where

import System.Cmd
import System.Environment
import System.FilePath
import System.Directory
import System.Info
import System.Exit
import Data.Version as Version
import Paths_lhc

main :: IO ()
main = do pkgConf <- getPkgConf
          args <- getArgs
          case args of
            ["--version"] -> putStrLn $ "LHC package manager version " ++ Version.showVersion version
            _other        -> exitWith =<< system (unwords (["ghc-pkg"]++ args ++
                                                           ["--package-conf=" ++ pkgConf
                                                           ,"--global-conf=" ++ pkgConf
                                                           ,"--no-user-package-conf"]))

getPkgConf
    = do appdir <- getAppUserDataDirectory "lhc"
         let targetARCH = arch
             targetOS   = os
         let subdir = targetARCH ++ '-':targetOS ++ '-':Version.showVersion version
         return (appdir </> subdir </> "package.conf.d")