module Main
where

import Text.Show.Pretty ( ppShow )
import Text.XML.HXT.Core

import qualified TSN.Injuries as Injuries


main :: IO ()
main = do
  res <- runX ( xunpickleDocument Injuries.pickle_message
                       [ withValidate no
                       , withTrace 1
                       , withRemoveWS yes
                       , withPreserveComment no
                       ] "test/xml/injuriesxml.xml" )
  putStr $ ppShow res