diff --git a/src/Affection.hs b/src/Affection.hs index 3bbf0d9..1957a7c 100644 --- a/src/Affection.hs +++ b/src/Affection.hs @@ -160,6 +160,7 @@ withAffection AffectionConfig{..} = do liftIO $ logIO Debug "Loop ended. Cleaning" cleanUp $ userState nState liftIO $ logIO Debug "Destroying Window" + SDL.glDeleteContext context SDL.destroyWindow window SDL.quit liftIO $ logIO Debug "This is the end"