X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FTSN%2FPicklers.hs;h=1193abf3c203db8029a8f43589ae89c5f6859c95;hb=e3272460a03b4bdded1902467310a4190feb333f;hp=16a25ef2f6043811fa9c299daad8132b51dbf81a;hpb=ef96e8bf0cadf5d602022f8c91914d3cabeb35a0;p=dead%2Fhtsn-import.git diff --git a/src/TSN/Picklers.hs b/src/TSN/Picklers.hs index 16a25ef..1193abf 100644 --- a/src/TSN/Picklers.hs +++ b/src/TSN/Picklers.hs @@ -6,6 +6,7 @@ module TSN.Picklers ( xp_team_id ) where +-- System imports. import Data.Time.Clock ( UTCTime ) import Data.Time.Format ( formatTime, parseTime ) import System.Locale ( defaultTimeLocale ) @@ -32,7 +33,7 @@ xp_date = from_date = formatTime defaultTimeLocale format --- | Parse a team_id. This *should* just be an 'Int', but TSN is doing +-- | Parse a team_id. This /should/ just be an 'Int', but TSN is doing -- something weird. First of all, player IDs do look like normal -- 'Int's. But the team IDs are all stuck in the triple digits, and -- double-digit team IDs appear to be padded to three characters