Use getLiteralStringDef instead of rebuilding it with fromJust

2023-12-31 16:23:45 -05:00 · 2023-12-31 16:23:45 -05:00 · 10afe83ce3
parent a786f996a1
commit 10afe83ce3
1 changed files with 1 additions and 1 deletions
--- a/src/ShellCheck/Analytics.hs
+++ b/src/ShellCheck/Analytics.hs
@ -4509,7 +4509,7 @@ prop_checkCommandWithTrailingSymbol9 = verifyNot checkCommandWithTrailingSymbol
 checkCommandWithTrailingSymbol _ t =
    case t of
        T_SimpleCommand _ _ (cmd:_) ->
-            let str = fromJust $ getLiteralStringExt (\_ -> Just "x") cmd
+            let str = getLiteralStringDef "x" cmd
                last = lastOrDefault 'x' str
            in
                case str of