yampa: Reduce line to 80 characters (KSG Haskell 1.3.0 - 4.3). Refs #255

. We set the code limit for Haskell files at 80 characters.
ivanperez-keera · Mar 25, 2023 · 8413848 · 8413848
1 parent b8b6300
commit 8413848
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/yampa/examples/Testing.hs b/yampa/examples/Testing.hs
@@ -141,7 +141,10 @@ hit =
 
 testBallBouncing = evalT (ballBouncingLower 100) stream0_5
 
-showBallBouncing = embed (bouncingBall 100 0 >>> arr fst ) ((), map (second Just) [(0.5, ()), (0.5, ()), (0.5, ()), (0.5, ()), (0.5, ()), (0.5, ()), (0.5, ()), (0.5, ()), (0.5, ()), (0.5, ()), (0.5, ()), (0.5, ()), (0.5, ()), (0.5, ()), (0.5, ()), (0.5, ()), (0.5, ()), (0.5, ()), (0.5, ()),(0.5, ()), (0.5, ()), (0.5, ()), (0.5, ()), (0.5, ()), (0.5, ()), (0.5, ()), (0.5, ()), (0.5, ()), (0.5, ()), (0.5, ()), (0.5, ()), (0.5, ()), (0.5, ()), (0.5, ()), (0.5, ()), (0.5, ()), (0.5, ()), (0.5, ()), (0.5, ())])
+showBallBouncing =
+  embed
+    (bouncingBall 100 0 >>> arr fst )
+    ((), map (second Just) (replicate 39 (0.5, ())))
 
 -- ballOverFloor :: Double -> TPred ()
 -- ballOverFloor p0 = Always $ SP (bouncingBall p0 0, (\_ (p1, v1) -> p1 >= 0))