handleNoInput :: IO (Maybe SDL.Event) -> IO Bool
handleNoInput stream = do
    maybeEvent <- stream
    case maybeEvent of
        Nothing -> return False
        Just (SDL.QuitEvent _ _) -> return True
        _ -> return False
handleNoInput :: IO (Maybe SDL.Event) -> IO Bool
handleNoInput stream = do
    maybeEvent <- stream
    case maybeEvent of
        Nothing -> return False
        Just (SDL.QuitEvent _ _) -> return True
        _ -> return False
handleNoInput stream = do
    maybeEvent <- stream
    case maybeEvent of
        Nothing -> return False
        Just (SDL.QuitEvent _ _) -> return True
        _ -> return False