Permalink
Browse files

refresh in reverse order, for testing

  • Loading branch information...
1 parent d986917 commit 5881aeae7c7e939d9d2540e239719b852aec32eb @gelisam committed Jul 12, 2014
Showing with 1 addition and 1 deletion.
  1. +1 −1 Main.hs
View
@@ -43,7 +43,7 @@ reactiveMain floats events = return pictures
labelledClicks = zipWith (fmap . const) ['a'..] fakeButtonClicks
clickLabels :: Event t Char
- clickLabels = foldr union never labelledClicks
+ clickLabels = foldr union never (reverse labelledClicks)
clickEvents :: Event t (Char, Int)
clickEvents = accumE (undefined, 0) (fmap mkEvent clickLabels)

0 comments on commit 5881aea

Please sign in to comment.