{-# LANGUAGE UnicodeSyntax, CPP #-}
{-# OPTIONS_GHC -pgmP cpp #-}
-- | Usage: Hit /q/ to abort the match
module Main where

import Control.Monad
import System.Exit
import Prelude.Unicode
import Data.Binary
import SoccerFun.Tape
import SoccerFun.MatchControl
import SoccerFun.MatchGame
import System.Environment
import qualified TEAM1.Team as Team1
import qualified TEAM2.Team as Team2

#define MKSTRING(x) #x
#define TOSTRING(x) MKSTRING(x)

main ∷ IO ()
main = do
	tape ← liftM recordMatch $ setupMatch Team1.team Team2.team
	encodeFile (TOSTRING(TEAM1) ⧺ "-" ⧺ TOSTRING(TEAM2) ⧺ ".sft") tape
	let Tape steps = tape
	    endOfMatch = snd (last steps)
	    finalScore = score endOfMatch
	putStrLn $ show (fst finalScore) ⧺ " / " ⧺ show (snd finalScore)