Add a unit test and separate ids for 884eff0c

This commit is contained in:
Vidar Holen 2018-05-23 19:51:36 -07:00
parent d140388bea
commit 467dfe07b6
2 changed files with 7 additions and 2 deletions

View file

@ -1918,11 +1918,12 @@ readSource pos t@(T_Redirecting _ _ (T_SimpleCommand _ _ (cmd:file:_))) = do
"Not following: " ++ err
return t
Right script -> do
id <- getNextIdAt pos
id1 <- getNextIdAt pos
id2 <- getNextIdAt pos
let included = do
src <- subRead filename script
return $ T_SourceCommand id t (T_Include id src)
return $ T_SourceCommand id1 t (T_Include id2 src)
let failed = do
parseNoteAt pos WarningC 1094