Switch to getLiteralStringDef to avoid an unnecessary fromJust

This commit is contained in:
Joseph C. Sible 2023-10-16 20:00:31 -04:00
parent 4fd0615501
commit 2a95bc6be3
1 changed files with 1 additions and 1 deletions

View File

@ -1058,7 +1058,7 @@ handleCommand cmd vars args literalCmd = do
let let
id = getId t id = getId t
pre = [t] pre = [t]
literal = fromJust $ getLiteralStringExt (const $ Just "\0") t literal = getLiteralStringDef "\0" t
isKnown = '\0' `notElem` literal isKnown = '\0' `notElem` literal
match = fmap head $ variableAssignRegex `matchRegex` literal match = fmap head $ variableAssignRegex `matchRegex` literal
name = fromMaybe literal match name = fromMaybe literal match