我正在使用用户控件列表在按钮单击事件中动态添加用户控件,并且可以使用用户控件内的按钮删除该控件。当我删除用户控件时,该用户控件会被删除,并且该控件的条目也会从列表中删除。
现在我的问题是,当页面回发时,在删除的控件的索引处添加了一个新的空控件,因为我在onload事件中插入了控件,并且删除了最后一个用户控件。
非常感谢您
getTracks :: IO [Track']
getTracks = go firstRecentlyPlayed
where go :: RecentlyPlayed -> IO [Track']
go (RecentlyPlayed (Tracks trks) next) = do
trks' <- mapM getGenre trks
rest <- go =<< getNextRecentlyPlayed next
return $ trks' ++ rest
getGenre Track{..} = do
artistGenres <- mapM getGenresByArtist artists
return (Track' {genres = concat artistGenres, ..})