nek0/vulkan-tutorial
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

updated example

Browse source
This commit is contained in:
nek0 2016-11-13 13:46:23 +01:00
parent 6ed98fae2b
commit 7ae7c4e080
1 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
examples/example00.hs
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 ()