Ok, I got it working:<br><br>module Main where<br>import qualified Text.XML.HaXml as X<br>import qualified Text.XML.HaXml.Parse as XP<br>import qualified Text.XML.HaXml.Pretty as XPP<br>import qualified IO<br>import qualified System
<br><br><br>load fn = do <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; contents &lt;- readFile fn<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; return $ XP.xmlParse fn contents<br><br>main = do [xml] &lt;- System.getArgs<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; d &lt;- load xml<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; IO.putStrLn $ show $ 
XPP.document $ d<br><br>&lt;?xml version=&quot;1.0&quot; encoding=&quot;UTF-8&quot;?&gt;<br>&lt;employee&gt;<br>&lt;!-- A list of employees --&gt;<br>&nbsp;&lt;name EmpType=&quot;Regular&quot;&gt;<br>&nbsp; &lt;first&gt;Almanzo&lt;/first&gt;
<br>&nbsp; &lt;last&gt;Wilder&lt;/last&gt;<br>&nbsp;&lt;/name&gt;<br>&nbsp;&lt;name EmpType=&quot;Contract&quot;&gt;<br>&nbsp; &lt;first&gt;Laura&lt;/first&gt;<br>&nbsp; &lt;last&gt;Ingalls&lt;/last&gt;<br>&nbsp;&lt;/name&gt;<br>&lt;/employee&gt;<br><br>