From ce0d339a71efb7f5804eb6280306cb522f5b5d4a Mon Sep 17 00:00:00 2001 From: Michael Orlitzky Date: Tue, 24 Jun 2014 17:05:49 -0400 Subject: [PATCH] Add a TODO comment to TSN.XML.AutoRacingResults. --- src/TSN/XML/AutoRacingResults.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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) -- 2.43.2