expandSplit :: TransMap -> StrListTuple -> S.Set [String] -> S.Set [String]
expandSplit _ (_, []) _ = error "bad expansion"
expandSplit :: TransMap -> StrListTuple -> S.Set [String] -> S.Set [String]
expandSplit _ (_, []) _ = error "bad expansion"
expandSplit _ (_, []) _ = error "bad expansion"