eventParamDelEventMap (Just fpDel) keys docSuffix dstPosId =
    do
        res <- fpDel
        let widgetIdMap =
                case res of
                Sugar.ParamDelResultTagsToVar Sugar.TagsToVar {..} ->
                    singletonIdMap (ttvReplacedTag ^. Sugar.tagInstance)
                    ttvReplacedByVarEntityId
                _ -> Map.empty
        Widget.eventResultFromCursor dstPosId
            & Widget.applyIdMapping widgetIdMap
            & return
    & E.keyPresses keys
        (E.Doc ["Edit", "Delete parameter" ++ docSuffix])
eventParamDelEventMap (Just fpDel) keys docSuffix dstPosId =
    do
        res <- fpDel
        let widgetIdMap =
                case res of
                Sugar.ParamDelResultTagsToVar Sugar.TagsToVar {..} ->
                    singletonIdMap (ttvReplacedTag ^. Sugar.tagInstance)
                    ttvReplacedByVarEntityId
                _ -> Map.empty
        Widget.eventResultFromCursor dstPosId
            & Widget.applyIdMapping widgetIdMap
            & return
    & E.keyPresses keys
        (E.Doc ["Edit", "Delete parameter" ++ docSuffix])
eventParamDelEventMap (Just fpDel) keys docSuffix dstPosId =
    do
        res <- fpDel
        let widgetIdMap =
                case res of
                Sugar.ParamDelResultTagsToVar Sugar.TagsToVar {..} ->
                    singletonIdMap (ttvReplacedTag ^. Sugar.tagInstance)
                    ttvReplacedByVarEntityId
                _ -> Map.empty
        Widget.eventResultFromCursor dstPosId
            & Widget.applyIdMapping widgetIdMap
            & return
    & E.keyPresses keys
        (E.Doc ["Edit", "Delete parameter" ++ docSuffix])