addSplices :: Monad m => Splices (??? -> View Text -> Splices (Splice m)) -> Splices (??? -> View Text -> Splices (Splice m)) -> View Text -> Splices (Splice m)
addSplices baseSplices moreSplices view =
    let
        newSplices = do
            baseSplices
            moreSplices
    in
        mapV (\splice -> splice (addSplices newSplices) view) newSplices