1 2 3 4 5 6 7 8
module Game.State (State (..)) where data State = State { batteries :: Int, totalBatteries :: Int, lives :: Int, totalLives :: Int }