Commit 5d541020 authored by Simon Marlow's avatar Simon Marlow
Browse files

it should be an error to use relative directories (#4134)

parent 9ec14a9e
......@@ -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) $
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment