makeLiteralNumberEventMap ::
    _ =>
    String ->
    m ((Sugar.Literal Identity -> o Sugar.EntityId) -> EventMap (o GuiState.Update))
makeLiteralNumberEventMap prefix =
    makeLiteralCommon (Just "Digit") Chars.digit Texts.literalNumber
    ?? Sugar.LiteralNum . Identity . read . (prefix <>) . (: [])
    <&> Lens.mapped . Lens.mapped . Lens.mapped %~ goToLiteral
makeLiteralNumberEventMap ::
    _ =>
    String ->
    m ((Sugar.Literal Identity -> o Sugar.EntityId) -> EventMap (o GuiState.Update))
makeLiteralNumberEventMap prefix =
    makeLiteralCommon (Just "Digit") Chars.digit Texts.literalNumber
    ?? Sugar.LiteralNum . Identity . read . (prefix <>) . (: [])
    <&> Lens.mapped . Lens.mapped . Lens.mapped %~ goToLiteral
makeLiteralNumberEventMap prefix =
    makeLiteralCommon (Just "Digit") Chars.digit Texts.literalNumber
    ?? Sugar.LiteralNum . Identity . read . (prefix <>) . (: [])
    <&> Lens.mapped . Lens.mapped . Lens.mapped %~ goToLiteral