fixed formatting

Author: parthrdesai

src/reports/timeline.rkt

@@ -347,33 +347,36 @@
 
 (define (render-phase-explanations explanations)
   `((dt "Explanations")
-    (dd (details
-         (summary "Click to see full explanations table")
-         (table
-          ((class "times"))
-          (thead
-           (tr (th "Operator") (th "Subexpression") (th "Explanation") (th "Count") (th "Locations")))
-          ,@(append*
-             (for/list ([rec (in-list (sort explanations > #:key fourth))])
-                (match-define (list op expr expl cnt mcnt flows locations) rec)
-
-                (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))))))))))))))
+    (dd
+     (details
+      (summary "Click to see full explanations table")
+      (table
+       ((class "times"))
+       (thead
+        (tr (th "Operator") (th "Subexpression") (th "Explanation") (th "Count") (th "Locations")))
+       ,@
+       (append*
+        (for/list ([rec (in-list (sort explanations > #:key fourth))])
+          (match-define (list op expr expl cnt mcnt flows locations) rec)
+
+          (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))))))))))))))
 
 (define (render-phase-confusion confusion-matrix)
   (match-define (list (list true-pos false-neg false-pos true-neg)) confusion-matrix)