validity-containers-0.1.0.0: src/Data/Validity/Tree.hs

module Data.Validity.Tree where

import           Data.Validity

import           Data.Tree

-- | A tree of things is valid if all the things are valid
instance Validity a => Validity (Tree a) where
    isValid = all isValid