From: Michael Orlitzky <michael@orlitzky.com>
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)