diff --git a/examples/example02.hs b/examples/example02.hs index 633ff55..013ab86 100644 --- a/examples/example02.hs +++ b/examples/example02.hs @@ -126,8 +126,9 @@ handle (SDL.MouseMotionEvent dat) = do ud <- getAffection nmap <- return $ M.adjust - (updateProperty ("y", G.PropertyDouble (fromIntegral (y - 10))) . - updateProperty ("x", G.PropertyDouble (fromIntegral (x - 10))) + (updateProperties $ props $ do + prop "x" (fromIntegral (x - 10) :: Double) + prop "y" (fromIntegral (y - 10) :: Double) ) "rect" (actors ud)