updated example

This commit is contained in:
nek0 2016-11-13 13:46:23 +01:00
parent 6ed98fae2b
commit 7ae7c4e080

View file

@ -29,6 +29,7 @@ main = do
, drawLoop = draw , drawLoop = draw
, updateLoop = update , updateLoop = update
, loadState = load , loadState = load
, cleanUp = clean
} }
withAffection conf withAffection conf
@ -112,3 +113,6 @@ update sec = do
put $ ad put $ ad
{ quitEvent = True { quitEvent = True
} }
clean :: UserData -> IO ()
clean _ = return ()