displayMode :: IO Display
displayMode = do
    putStrLn "Enter window width and height:"
    width <- prompt "Width: "
    height <- prompt "Height: "
    return $ InWindow "Asteroids" (width, height) (50, 50)
displayMode :: IO Display
displayMode = do
    putStrLn "Enter window width and height:"
    width <- prompt "Width: "
    height <- prompt "Height: "
    return $ InWindow "Asteroids" (width, height) (50, 50)
displayMode = do
    putStrLn "Enter window width and height:"
    width <- prompt "Width: "
    height <- prompt "Height: "
    return $ InWindow "Asteroids" (width, height) (50, 50)