X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=Rakka.git;a=blobdiff_plain;f=Rakka%2FValidation.hs;h=70129a47f15ff34ac8c92030dca555bee16159a5;hp=73a83e78105c13a1b476b4e6cc107de4293e68f9;hb=88747f2;hpb=fdf3b6945a61a285c584a855a7c290281a6fb4ea diff --git a/Rakka/Validation.hs b/Rakka/Validation.hs index 73a83e7..70129a4 100644 --- a/Rakka/Validation.hs +++ b/Rakka/Validation.hs @@ -2,7 +2,6 @@ module Rakka.Validation ( getValidator ) where - import Control.Arrow import Control.Arrow.ArrowList import Control.Arrow.ArrowTree @@ -12,11 +11,7 @@ import Rakka.Environment 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