-----------------------------------------------------------------------------
--- $Id: Main.hs,v 1.4 2001/03/24 18:34:05 qrczak Exp $
+-- $Id: Main.hs,v 1.5 2001/03/25 11:08:42 panne Exp $
--
-- Package management tool
-----------------------------------------------------------------------------
import System
import IO
-default_pkgconf = clibdir ++ "/package.conf"
+-- HACK: The confusing cpp tricks below introduce a leading space. Note that
+-- cpp's stringify operator # doesn't work because of the -traditional flag.
+-- TEXT SUBSTITUTION IS EVIL. TEXT SUBSTITUTION IS EVIL. TEXT SUBSTITUTION...
+default_pkgconf = "\
+ \ clibdir" ++ "/package.conf"
main = do
args <- getArgs
runit clis = do
conf_file <-
case [ f | Config f <- clis ] of
- [] -> return default_pkgconf
+ [] -> return (tail default_pkgconf) -- HACK: Remove leading space
[f] -> return f
_ -> die (usageInfo usageHeader flags)
# -----------------------------------------------------------------------------
-# $Id: Makefile,v 1.5 2001/03/24 18:34:05 qrczak Exp $
+# $Id: Makefile,v 1.6 2001/03/25 11:08:42 panne Exp $
TOP=../..
include $(TOP)/mk/boilerplate.mk
HS_PROG = ghc-pkg
SRC_HC_OPTS += -cpp -DPKG_TOOL -DWANT_PRETTY -package lang \
- -package util -package text -Dclibdir="\"$(libdir)\""
+ -package util -package text -Dclibdir="$(libdir)"
INSTALL_PROGS = $(HS_PROG)