From 5d5410209524eb3e3b39619ba398dbb924ae91c0 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Tue, 15 Jun 2010 15:17:40 +0000 Subject: [PATCH] it should be an error to use relative directories (#4134) --- utils/ghc-pkg/Main.hs | 3 +++ 1 file changed, 3 insertions(+) diff --git a/utils/ghc-pkg/Main.hs b/utils/ghc-pkg/Main.hs index 03a547d..e110cb4 100644 --- a/utils/ghc-pkg/Main.hs +++ b/utils/ghc-pkg/Main.hs @@ -1296,6 +1296,9 @@ checkDir warn_only thisfield d | "$topdir" `isPrefixOf` d = return () | "$httptopdir" `isPrefixOf` d = return () -- can't check these, because we don't know what $(http)topdir is + | isRelative d = verror ForceFiles $ + thisfield ++ ": " ++ d ++ " is a relative path" + -- relative paths don't make any sense; #4134 | otherwise = do there <- liftIO $ doesDirectoryExist d when (not there) $ -- 1.7.10.4