What was converged upon

Final.hs

    -- qrcMapD :: Dynamic t [ImageInfo] -> Dynamic t (Map Int ImageInfo)
    addQRCodeMapD <- mapDyn numberList qrcListD

    -- eventMapD :: Dynamic t (Map String (Event t String))
    rec eventMapD <- listWithKey updateMapD $ \k _ -> do
          clickE <- bsButtonStatic "icon minus" "Delete"
          return $ fmap (const k) clickE

        -- eventListD :: Dynamic t [Event t String]
        eventListD <- mapDyn Map.elems eventMapD
        -- mergedD :: Dynamic t (Event t String)
        mergedD <- mapDyn leftmost eventListD
        -- mergedDeleteE :: Event t String
        let mergedDeleteE  = switch $ current mergedD
        
        deletedMapD <- foldDyn (\r deleteMap -> Map.insert r Nothing deleteMap) Map.empty mergedDeleteE
        updateMapD <- combineDyn (Map.differenceWith (\m1 m2 -> Nothing)) addQRCodeMapD deletedMapD