TagSoup removing all script tags and adding a base tag

DOMTransformation.hs

import qualified Data.ByteString.Lazy      as LBS
import           Text.HTML.TagSoup
import           Text.HTML.TagSoup.Tree

addBaseTag :: LBS.ByteString -> [TagTree LBS.ByteString] -> [TagTree LBS.ByteString]
addBaseTag href = transformTree f
  where
    f (TagBranch "head" attrs subTrees) = [TagBranch "head" attrs (baseTag : subTrees)]
    f x = [x]

    baseTag = TagLeaf (TagOpen "base" [("href", href)])

removeScripts :: [TagTree LBS.ByteString] -> [TagTree LBS.ByteString]
removeScripts = transformTree f
  where
    f (TagBranch "script" _ _) = []
    f x = [x]