git.iko.soy/typeable/hexml
on 39cf897 help sign in
typeable/hexml/src/Main.hs
12 lines 257 B history raw
2module Main(main) where
4import Text.XML.Hexml
5import qualified Data.ByteString as BS
7main :: IO ()
8main = do
9 bs <- BS.readFile "C:/Neil/notes/core.xml"
10 case parse bs of
11 Left err -> error $ show err
12 Right val -> print $ render val