Allow SCRIPTDIR in source directives (fixes #1617)
This commit is contained in:
parent
be1f1c1ab7
commit
4d56852b9f
|
@ -500,8 +500,8 @@ ioInterface options files = do
|
||||||
find original original
|
find original original
|
||||||
where
|
where
|
||||||
find filename deflt = do
|
find filename deflt = do
|
||||||
sources <- filterM ((allowable inputs) `andM` doesFileExist)
|
sources <- filterM ((allowable inputs) `andM` doesFileExist) $
|
||||||
(map (</> filename) $ map adjustPath $ sourcePathFlag ++ sourcePathAnnotation)
|
(adjustPath filename):(map (</> filename) $ map adjustPath $ sourcePathFlag ++ sourcePathAnnotation)
|
||||||
case sources of
|
case sources of
|
||||||
[] -> return deflt
|
[] -> return deflt
|
||||||
(first:_) -> return first
|
(first:_) -> return first
|
||||||
|
|
Loading…
Reference in New Issue