From a72e95332b1150c9de2d381c727d26bf20efa34b Mon Sep 17 00:00:00 2001 From: David Date: Tue, 19 Feb 2019 13:12:16 +0100 Subject: [PATCH] Clean up example. --- README.md | 8 ++++---- src/Reanimate/Examples.hs | 8 ++++---- 2 files changed, 8 insertions(+), 8 deletions(-) diff --git a/README.md b/README.md index 61fd45d..1ad2671 100644 --- a/README.md +++ b/README.md @@ -177,10 +177,10 @@ clip_rect :: Ani () clip_rect = proc () -> do emit -< rect_ [width_ "100%", height_ "100%", fill_ "black"] follow - [ proc () -> do - sim [ paintStatic prev | prev <- [max 0 (n-4) .. n-1] ] -< () - sim [ runAni "black" i | i <- [n-4], i>=0 ] -< () - runAni "white" n -< () + [ sim + [ sim [ paintStatic prev | prev <- [max 0 (n-4) .. n-1] ] + , sim [ runAni "black" i | i <- [n-4], i>=0 ] + , runAni "white" n ] | n <- [0..15] ] -< () where diff --git a/src/Reanimate/Examples.hs b/src/Reanimate/Examples.hs index ee12e7f..157c2a7 100644 --- a/src/Reanimate/Examples.hs +++ b/src/Reanimate/Examples.hs @@ -160,10 +160,10 @@ clip_rect :: Ani () clip_rect = proc () -> do emit -< rect_ [width_ "100%", height_ "100%", fill_ "black"] follow - [ proc () -> do - sim [ paintStatic prev | prev <- [max 0 (n-4) .. n-1] ] -< () - sim [ runAni "black" i | i <- [n-4], i>=0 ] -< () - runAni "white" n -< () + [ sim + [ sim [ paintStatic prev | prev <- [max 0 (n-4) .. n-1] ] + , sim [ runAni "black" i | i <- [n-4], i>=0 ] + , runAni "white" n ] | n <- [0..15] ] -< () where