import TSN.Database ( insert_or_select )
import TSN.DbImport ( DbImport(..), ImportResult(..), run_dbmigrate )
import TSN.Location ( Location(..), pickle_location )
-import TSN.Picklers ( xp_time_stamp )
+import TSN.Picklers ( xp_attr_option, xp_time_stamp )
import TSN.Team (
FromXmlFkTeams(..),
HTeam(..),
pickle_status =
xpElem "status" $
xpWrap (from_tuple, to_tuple') $
- xpTriple (xpAttr "numeral" $ xpOption xpInt)
+ xpTriple (xpAttr "numeral" $ xp_attr_option)
(xpOption $ xpAttr "type" $ xpOption xpText)
xpText
where