From 52f2f71b4056beef4285a4eb8a78ec6375a4d404 Mon Sep 17 00:00:00 2001 From: Vidar Holen Date: Mon, 8 Jul 2013 09:51:57 -0700 Subject: [PATCH] Added missing id/recursing defintions for DollarBracket --- ShellCheck/AST.hs | 2 ++ 1 file changed, 2 insertions(+) diff --git a/ShellCheck/AST.hs b/ShellCheck/AST.hs index 452154b..9b823d5 100644 --- a/ShellCheck/AST.hs +++ b/ShellCheck/AST.hs @@ -155,6 +155,7 @@ analyze f g i t = delve (T_DollarExpansion id list) = dl list $ T_DollarExpansion id delve (T_Backticked id list) = dl list $ T_Backticked id delve (T_DollarArithmetic id c) = d1 c $ T_DollarArithmetic id + delve (T_DollarBracket id c) = d1 c $ T_DollarBracket id delve (T_IoFile id op file) = d2 op file $ T_IoFile id delve (T_HereString id word) = d1 word $ T_HereString id delve (T_FdRedirect id v t) = d1 t $ T_FdRedirect id v @@ -316,6 +317,7 @@ getId t = case t of T_ForArithmetic id _ _ _ _ -> id T_DollarSingleQuoted id _ -> id T_DollarDoubleQuoted id _ -> id + T_DollarBracket id _ -> id blank :: Monad m => Token -> m () blank = const $ return ()