-----------------------------------------------------------------------------
--- $Id: Main.hs,v 1.12 2001/08/13 16:32:22 simonmar Exp $
+-- $Id: Main.hs,v 1.13 2001/08/21 09:03:32 rrt Exp $
--
-- Package management tool
-----------------------------------------------------------------------------
import System
import IO
+#include "../includes/config.h"
+
#ifdef mingw32_TARGET_OS
import Win32DLL
#endif
]
#ifdef mingw32_TARGET_OS
+subst a b ls = map (\ x -> if x == a then b else x) ls
+
unDosifyPath xs = subst '\\' '/' xs
#endif
#else
[] -> do h <- getModuleHandle Nothing
n <- getModuleFileName h
- return (reverse (tail (dropWhile (not . isSlash)
- (reverse (unDosifyPath n)))) ++ "/package.conf")
+-- return (reverse (tail (dropWhile (not . isSlash)
+ return (reverse (drop (length "/bin/ghc-pkg.exe") (reverse (unDosifyPath n))) ++ "/package.conf")
+-- (reverse (unDosifyPath n)))) ++ "/package.conf")
#endif
let toField "import_dirs" = return import_dirs
# -----------------------------------------------------------------------------
-# $Id: Makefile,v 1.8 2001/06/23 12:54:18 panne Exp $
+# $Id: Makefile,v 1.9 2001/08/21 09:03:32 rrt Exp $
TOP=../..
include $(TOP)/mk/boilerplate.mk
SRC_HC_OPTS += -cpp -DPKG_TOOL -DWANT_PRETTY -package lang \
-package util -package text
+ifeq "$(TARGETPLATFORM)" "i386-unknown-mingw32"
+SRC_HC_OPTS += -package win32
+endif
+
INSTALL_LIBEXECS = $(HS_PROG)
# -----------------------------------------------------------------------------