From fdf02dcafa7d0be4de6eee6d0a94e0588495572e Mon Sep 17 00:00:00 2001 From: Anjali Smith Date: Fri, 10 Jun 2022 23:58:43 -0400 Subject: [PATCH] fix compile error --- examples/waitpid_simulator.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/examples/waitpid_simulator.hs b/examples/waitpid_simulator.hs index 864623f..4ea27f3 100644 --- a/examples/waitpid_simulator.hs +++ b/examples/waitpid_simulator.hs @@ -43,7 +43,7 @@ animateFork (Segment (Point startx starty) (Point endx endy)) -- Helper function to label a proccess with a pid labelPids :: Segment -> Int -> SVG -labelPids (Segment (Point startx starty) _ i = mkGroup +labelPids (Segment (Point startx starty) (Point _ _) i = mkGroup [translate (startx - 0.75) (starty) $ scale 0.25 $ outlineText $T.pack("pid: " ++ (show i))] -- Helper function to position a line of text