src/Main.hs

   1 module Main
   2 where
   3
   4 import Text.Show.Pretty ( ppShow )
   5 import Text.XML.HXT.Core
   6
   7 import qualified TSN.Injuries as Injuries
   8
   9
  10 main :: IO ()
  11 main = do
  12   res <- runX ( xunpickleDocument Injuries.pickle_message
  13                        [ withValidate no
  14                        , withTrace 1
  15                        , withRemoveWS yes
  16                        , withPreserveComment no
  17                        ] "test/xml/injuriesxml.xml" )
  18   putStr $ ppShow res