updated example

examples/example00.hs

@@ -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 ()