module Text.HTML.TagSoup.HT.Utility where

mapSnd :: (b -> c) -> (a,b) -> (a,c)
mapSnd f ~(a,b) = (a, f b)