X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FTSN%2FPicklers.hs;h=1193abf3c203db8029a8f43589ae89c5f6859c95;hb=559d4df216acd26a5d2821db2ade003c7d727177;hp=16a25ef2f6043811fa9c299daad8132b51dbf81a;hpb=79cba02a6f520256991b345e9dffdaedf68ddde0;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