hashirama/reanimate
Watch
1
0
Fork
You've already forked reanimate
 0
mirror of https://github.com/reanimate/reanimate.git synced 2026-09-12 00:23:08 +00:00
Code Issues Projects Releases Wiki Activity

fix compile error

Browse source
This commit is contained in:
Anjali Smith 2022-06-10 23:58:43 -04:00
commit fdf02dcafa
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
examples/waitpid_simulator.hs
View file

@ -43,7 +43,7 @@ animateFork (Segment (Point startx starty) (Point endx endy))
-- Helper function to label a proccess with a pid -- Helper function to label a proccess with a pid
labelPids :: Segment -> Int -> SVG 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))] [translate (startx - 0.75) (starty) $ scale 0.25 $ outlineText $T.pack("pid: " ++ (show i))]
-- Helper function to position a line of text -- Helper function to position a line of text