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 bug in 'play'.

Browse source 
Former-commit-id: 5aa506a6c5db207e3731ba0eb19c8c38e462051a
This commit is contained in:
David Himmelstrup 2020-02-12 19:59:56 +08:00
commit 8817f255a5
4 changed files with 37 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

12
examples/bug_play3.hs Executable file
View file

@ -0,0 +1,12 @@
#!/usr/bin/env stack
-- stack runghc --package reanimate
module Main(main) where
import Reanimate
import Reanimate.Scene
-- This should give rect.
main :: IO ()
main = reanimate $ signalA (constantS 1) $ sceneAnimation $ do
play $ animate $ const $ mkCircle 1
play $ animate $ const $ mkRect 1 1