File tree Expand file tree Collapse file tree
Expand file tree Collapse file tree Original file line number Diff line number Diff line change @@ -81,33 +81,6 @@ main = do
8181 sdlLog " Renderer destroyed."
8282 pure ()
8383
84- -- case window of
85- -- Nothing -> do
86- -- sdlLog "Failed to create window!"
87- -- sdlQuit
88- -- exitFailure
89- -- Just win -> do
90- -- sdlLog "Window created successfully!"
91-
92- -- -- Create a Renderer
93- -- renderer <- sdlCreateRenderer win Nothing -- Let SDL choose
94- -- case renderer of
95- -- Nothing -> do
96- -- sdlLog "Failed to create default renderer!"
97- -- err <- sdlGetError
98- -- sdlLog $ "SDL Error: " ++ err
99- -- sdlDestroyWindow win
100- -- sdlQuit
101- -- exitFailure
102- -- Just ren -> do
103- -- mRendererName <- sdlGetRendererName ren
104- -- sdlLog $ "Created renderer: " ++ fromMaybe "Unknown" mRendererName
105- -- runApp win ren -- Pass window and renderer to runApp
106- -- sdlLog "Shutting down SDL..."
107- -- sdlQuit
108- -- sdlLog "Application terminated successfully"
109- -- exitSuccess
110-
11184-- | Encapsulate the application logic with window and renderer
11285runApp :: SDLWindow -> SDLRenderer -> IO ()
11386runApp win renderer = do
You can’t perform that action at this time.
0 commit comments