From 4d56852b9f61267c70515b7ae648ae81ea5d119b Mon Sep 17 00:00:00 2001 From: Vidar Holen Date: Wed, 3 Jul 2019 19:49:47 -0700 Subject: [PATCH] Allow SCRIPTDIR in source directives (fixes #1617) --- shellcheck.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/shellcheck.hs b/shellcheck.hs index 4ba8b70..20fb4b6 100644 --- a/shellcheck.hs +++ b/shellcheck.hs @@ -500,8 +500,8 @@ ioInterface options files = do find original original where find filename deflt = do - sources <- filterM ((allowable inputs) `andM` doesFileExist) - (map ( filename) $ map adjustPath $ sourcePathFlag ++ sourcePathAnnotation) + sources <- filterM ((allowable inputs) `andM` doesFileExist) $ + (adjustPath filename):(map ( filename) $ map adjustPath $ sourcePathFlag ++ sourcePathAnnotation) case sources of [] -> return deflt (first:_) -> return first