-----------------------------------------------------------------------------
--- $Id: DriverState.hs,v 1.93 2003/06/24 12:56:44 stolz Exp $
+-- $Id: DriverState.hs,v 1.95 2003/08/20 18:48:20 sof Exp $
--
-- Settings for the driver
--
hsc_minusO_flags =
[
"-fignore-asserts",
- "-ffoldr-build-on",
"-fdo-eta-reduction",
"-fdo-lambda-eta-expansion",
"-fcase-merge",
munge_paths = map munge_path
munge_path p
- | Just p' <- my_prefix_match "$libdir" p = top_dir ++ p'
- | otherwise = p
+ | Just p' <- maybePrefixMatch "$libdir" p = top_dir ++ p'
+ | otherwise = p
-- -----------------------------------------------------------------------------