Switch to getLiteralStringDef to avoid an unnecessary fromJust
This commit is contained in:
parent
4fd0615501
commit
2a95bc6be3
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue