Expand root paths into source paths

This commit is contained in:
Vidar Holen 2019-04-24 18:51:24 -07:00
parent af46758ff1
commit c6c12f52bd
6 changed files with 70 additions and 30 deletions

View file

@ -2088,7 +2088,8 @@ readSource t@(T_Redirecting _ _ (T_SimpleCommand cmdId _ (cmd:file':rest'))) = d
if filename == "/dev/null" -- always allow /dev/null
then return (Right "")
else do
filename' <- system $ siFindSource sys filename
currentScript <- Mr.asks currentFilename
filename' <- system $ siFindSource sys currentScript filename
system $ siReadFile sys filename'
case input of
Left err -> do