From 37bec202feb51da413d11318ef34a4b49e415970 Mon Sep 17 00:00:00 2001 From: nek0 Date: Mon, 18 Jun 2018 01:09:01 +0200 Subject: [PATCH] destroy context --- src/Affection.hs | 1 + 1 file changed, 1 insertion(+) 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"