doMandelbrot :: IO ()
doMandelbrot = do
    (config, _) <- getArgs >>= parseArgs defaultConfig
    let size    = fromIntegral $ fromLJust confSize config
        limit   = fromIntegral $ fromLJust confLimit config
        backend = fromLJust confBackend config
        disp    = G.InWindow "Mandelbrot" (size, size) (10, 10)
    G.display disp defaultView False (frameGenerator backend limit)
doMandelbrot :: IO ()
doMandelbrot = do
    (config, _) <- getArgs >>= parseArgs defaultConfig
    let size    = fromIntegral $ fromLJust confSize config
        limit   = fromIntegral $ fromLJust confLimit config
        backend = fromLJust confBackend config
        disp    = G.InWindow "Mandelbrot" (size, size) (10, 10)
    G.display disp defaultView False (frameGenerator backend limit)
doMandelbrot = do
    (config, _) <- getArgs >>= parseArgs defaultConfig
    let size    = fromIntegral $ fromLJust confSize config
        limit   = fromIntegral $ fromLJust confLimit config
        backend = fromLJust confBackend config
        disp    = G.InWindow "Mandelbrot" (size, size) (10, 10)
    G.display disp defaultView False (frameGenerator backend limit)