( getValidator
)
where
-
import Control.Arrow
import Control.Arrow.ArrowList
import Control.Arrow.ArrowTree
import System.Directory
import System.FilePath
import Text.XML.HXT.Arrow.XmlArrow
-import Text.XML.HXT.Arrow.XmlIOStateArrow
import Text.XML.HXT.DOM.TypeDefs
-import qualified Text.XML.HXT.RelaxNG.Schema as S
-import Text.XML.HXT.RelaxNG.Validator
-
loadSchema :: FilePath -> IO (IOSArrow XmlTree XmlTree)
loadSchema fpath