updated with ~a tag

herbie-fp · Oct 17, 2024 · fe784f9 · fe784f9
1 parent b8d7a59
commit fe784f9
Showing 1 changed file with 10 additions and 16 deletions.
diff --git a/src/reports/timeline.rkt b/src/reports/timeline.rkt
@@ -361,22 +361,16 @@
 
           (define safe-locations (or locations '())) ;; Fallback to empty list if locations is #f
 
-          (append
-           (list
-            `(tr
-              (td (code ,(~a op)))
-              (td (code ,(~a expr)))
-              (td (b ,(~a expl)))
-              (td ,(~a cnt))
-              (td ,(~a mcnt))
-              ;; Handle locations: Iterate over each location's inner lists and create a row for each
-              (for/list ([location-list (in-list safe-locations)])
-                ;; Handle each location in the inner list
-                (for/list ([location (in-list location-list)])
-                  `(tr (td "↳") (td "Location") (td ,(~a location)) (td ""))))
-              (for/list ([flow (in-list (or flows '()))])
-                (match-define (list ex type v) flow)
-                `(tr (td "↳") (td (code ,(~a ex))) (td ,type) (td ,(~a v))))))))))))))
+          (append (list `(tr (td (code ,(~a op)))
+                                  (td (code ,(~a expr)))
+                                  (td (b ,(~a expl)))
+                                  (td ,(~a cnt))
+                                  (td ,(~a mcnt))
+                                  (td ,(~a locations)))
+                             (for/list ([flow (in-list (or flows '()))])
+                               (match-define (list ex type v) flow)
+                               `(tr (td "↳") (td (code ,(~a ex))) (td ,type) (td ,(~a v)))))))))))))
+
 
 (define (render-phase-confusion confusion-matrix)
   (match-define (list (list true-pos false-neg false-pos true-neg)) confusion-matrix)