makeLiteralCharEventMap ::
    _ =>
    Text -> m ((Sugar.Literal Identity -> o Sugar.EntityId) -> EventMap (o GuiState.Update))
makeLiteralCharEventMap searchTerm =
    case Text.unpack searchTerm of
    ['\'', c] ->
        makeLiteralCommon Nothing "'" Texts.literalChar ?? const (Sugar.LiteralChar (Identity c))
        <&> Lens.mapped . Lens.mapped . Lens.mapped %~ GuiState.updateCursor
    _ -> mempty
makeLiteralCharEventMap ::
    _ =>
    Text -> m ((Sugar.Literal Identity -> o Sugar.EntityId) -> EventMap (o GuiState.Update))
makeLiteralCharEventMap searchTerm =
    case Text.unpack searchTerm of
    ['\'', c] ->
        makeLiteralCommon Nothing "'" Texts.literalChar ?? const (Sugar.LiteralChar (Identity c))
        <&> Lens.mapped . Lens.mapped . Lens.mapped %~ GuiState.updateCursor
    _ -> mempty
makeLiteralCharEventMap searchTerm =
    case Text.unpack searchTerm of
    ['\'', c] ->
        makeLiteralCommon Nothing "'" Texts.literalChar ?? const (Sugar.LiteralChar (Identity c))
        <&> Lens.mapped . Lens.mapped . Lens.mapped %~ GuiState.updateCursor
    _ -> mempty