Save string read by T_ParamSubSpecialChar

This commit is contained in:
Vidar Holen 2016-12-03 10:19:14 -08:00
parent 0897ab7092
commit b4fb439191
3 changed files with 5 additions and 4 deletions

View file

@ -1015,8 +1015,7 @@ readDollarBracedLiteral = do
readParamSubSpecialChar = do
id <- getNextId
many1 paramSubSpecialChars
return $ T_ParamSubSpecialChar id
T_ParamSubSpecialChar id <$> many1 paramSubSpecialChars
prop_readProcSub1 = isOk readProcSub "<(echo test | wc -l)"
prop_readProcSub2 = isOk readProcSub "<( if true; then true; fi )"