mirror of
https://github.com/reanimate/reanimate.git
synced 2026-09-12 00:23:08 +00:00
fix compile error
This commit is contained in:
parent
874b1707a8
commit
fdf02dcafa
1 changed files with 1 additions and 1 deletions
|
|
@ -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
|
||||
|
|
|
|||
Loading…
Reference in a new issue