reportGlobalResultsXml :: ReportGlobalResults
reportGlobalResultsXml arg =
    do let xml = mkGlobalResultsXml arg
       tc <- ask
       case tc_outputXml tc of
         Just fname -> liftIO $ withFile fname WriteMode $ \h -> BSL.hPut h xml
         Nothing -> liftIO $ BSL.putStr xml

--
-- General reporting routines
--
reportGlobalResultsXml :: ReportGlobalResults
reportGlobalResultsXml arg =
    do let xml = mkGlobalResultsXml arg
       tc <- ask
       case tc_outputXml tc of
         Just fname -> liftIO $ withFile fname WriteMode $ \h -> BSL.hPut h xml
         Nothing -> liftIO $ BSL.putStr xml

--
-- General reporting routines
--
reportGlobalResultsXml arg =
    do let xml = mkGlobalResultsXml arg
       tc <- ask
       case tc_outputXml tc of
         Just fname -> liftIO $ withFile fname WriteMode $ \h -> BSL.hPut h xml
         Nothing -> liftIO $ BSL.putStr xml

--
-- General reporting routines
--