boomslang-0.0.2: src/Main.hs

module Main (main) where

import Game.Activity    (Activity(Starting))
import Game.Environment (environment)
import Game.G           (runG)
import Game.Logic       (logic)
import Game.Score       (Score(NoScore))
import Game.State       (State(State))
import qualified External.Graphics as ExternalGraphics

main :: IO ()
main =
    ExternalGraphics.withGraphics $ do
        env <- environment
        runG logic env (State Starting NoScore)