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