From 8f5ea5531c4da65f4b17958a1160d99f09dda8b0 Mon Sep 17 00:00:00 2001 From: nek0 Date: Sat, 29 Aug 2020 07:22:26 +0200 Subject: [PATCH] no need to empty already empty MVars --- src/Main.hs | 2 -- 1 file changed, 2 deletions(-) diff --git a/src/Main.hs b/src/Main.hs index e89d2b1..d1e93b3 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -166,12 +166,10 @@ sceneSwitch curScene evs = mapM_ (switch . SDL.eventPayload) evs SDL.KeycodeF1 -> do isEmpty <- isEmptyMVar curScene when isEmpty $ do - void $ tryTakeMVar curScene putMVar curScene =<< fmap Scene (initScene @ClearColor) SDL.KeycodeF2 -> do isEmpty <- isEmptyMVar curScene when isEmpty $ do - void $ tryTakeMVar curScene putMVar curScene =<< fmap Scene (initScene @Texture2D) _ -> return ()