From f5c3c0b9f4842bb1ea5fc8bb31ab4c5bd6c8b564 Mon Sep 17 00:00:00 2001
From: Anjali Smith <anjalismith@Anjalis-Air.home>
Date: Sat, 11 Jun 2022 12:44:00 -0400
Subject: [PATCH] use & strokeLineCap .~ pure CapSquare

---
 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 c590f91..b8f0a14 100644
--- a/examples/waitpid_simulator.hs
+++ b/examples/waitpid_simulator.hs
@@ -18,7 +18,7 @@ data Segment = Segment Point Point
 animatePart :: Segment -> Animation
 animatePart (Segment (Point startx starty) (Point endx endy)) = signalA (curveS 2) $ setDuration customDuration $
   animate $ \t ->
-    partialSvg t $ pathify $ mkLine (startx, starty) (endx, endy) 
+    partialSvg t $ pathify (mkLine (startx, starty) (endx, endy) & strokeLineCap .~ (pure CapSquare))
 
 -- Helper function to create coordinates for a specific line
 splitSegments :: Segment -> Int -> [Segment]