let a4 = take 9 (xml t)
let ex4 = "<message>"
let actual = (a1,a2,a3,a4)
let a4 = take 9 (xml t)
let ex4 = "<message>"
let actual = (a1,a2,a3,a4)
xmltrees <- mapM unsafe_read_document game_info_test_files
let msgs = rights $ map (parse_xml "dummy") xmltrees
actual <- withSqliteConn ":memory:" $ runDbConn $ do
xmltrees <- mapM unsafe_read_document game_info_test_files
let msgs = rights $ map (parse_xml "dummy") xmltrees
actual <- withSqliteConn ":memory:" $ runDbConn $ do