From: Michael Orlitzky Date: Tue, 24 Jun 2014 21:05:49 +0000 (-0400) Subject: Add a TODO comment to TSN.XML.AutoRacingResults. X-Git-Tag: 0.0.6~66 X-Git-Url: https://gitweb.michael.orlitzky.com/?a=commitdiff_plain;h=ce0d339a71efb7f5804eb6280306cb522f5b5d4a;p=dead%2Fhtsn-import.git Add a TODO comment to TSN.XML.AutoRacingResults. --- diff --git a/src/TSN/XML/AutoRacingResults.hs b/src/TSN/XML/AutoRacingResults.hs index bfc07d1..179b8ab 100644 --- a/src/TSN/XML/AutoRacingResults.hs +++ b/src/TSN/XML/AutoRacingResults.hs @@ -522,7 +522,7 @@ pickle_race_information = xpWrap (from_tuple, to_tuple) $ xp11Tuple (-- I can't think of another way to get both the -- TrackLength and its KPH attribute. So we shove them - -- both in a 2-tuple. + -- both in a 2-tuple. This should probably be an embedded type! xpElem "TrackLength" $ xpPair xpPrim (xpAttr "KPH" xpPrim) ) (xpElem "Laps" xpInt) (xpOption $ xpElem "AverageSpeedMPH" xpPrim)