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
, updateLoop = update
, loadState = load
, cleanUp = clean
}
withAffection conf
@ -112,3 +113,6 @@ update sec = do
put $ ad
{ quitEvent = True
}
clean :: UserData -> IO ()
clean _ = return ()