import TSN.Codegen ( tsn_codegen_config )
import TSN.Database ( insert_or_select )
import TSN.DbImport ( DbImport(..), ImportResult(..), run_dbmigrate )
-import TSN.Picklers ( xp_date_padded, xp_tba_time, xp_time_stamp )
+import TSN.Picklers (
+ xp_attr_option,
+ xp_date_padded,
+ xp_tba_time,
+ xp_time_stamp )
import TSN.Team ( FromXmlFkTeams(..), Team(..) )
import TSN.XmlImport ( XmlImport(..), XmlImportFkTeams(..) )
import Xml (
xpElem "Casino" $
xpWrap (from_tuple, H.convert) $
xpTriple
- (xpAttr "ClientID" $ xpOption xpInt)
+ (xpAttr "ClientID" $ xp_attr_option)
(xpAttr "Name" $ xpOption xpText)
(xpOption xpText)
where