xpElem,
xpInt,
xpList,
+ xpOption,
xpPrim,
xpText,
- xpText0,
xpWrap )
import TSN.Picklers( xp_date, xp_team_id )
name :: String,
injury :: String,
status :: String,
- fantasy :: String, -- ^ Nobody knows what this is.
+ fantasy :: Maybe String, -- ^ Nobody knows what this is.
injured :: Bool,
injury_type :: String -- ^ "type" is a reserved keyword so we can't use it
}
(xpElem "Name" xpText)
(xpElem "Injury" xpText)
(xpElem "Status" xpText)
- (xpElem "Fantasy" xpText0)
+ (xpElem "Fantasy" $ xpOption xpText)
(xpElem "Injured" xpPrim)
(xpElem "Type" xpText)
where