pickle_team :: PU EarlyLineGameTeamXml
pickle_team =
xpWrap (from_tuple, to_tuple') $
pickle_team :: PU EarlyLineGameTeamXml
pickle_team =
xpWrap (from_tuple, to_tuple') $
[ check "pickle composed with unpickle is the identity"
"test/xml/earlylineXML.xml",
[ check "pickle composed with unpickle is the identity"
"test/xml/earlylineXML.xml",
[ check "unpickling succeeds"
"test/xml/earlylineXML.xml",
[ check "unpickling succeeds"
"test/xml/earlylineXML.xml",
[ check "deleting early_lines deletes its children"
"test/xml/earlylineXML.xml",
[ check "deleting early_lines deletes its children"
"test/xml/earlylineXML.xml",