gameFinished :: Board -> IO ()
gameFinished b = do let (p1,p2) = scores b
                    putStrLn ""
                    putStrLn "GAME FINISHED!"
                    putStrLn ""
                    printBoard b
                    putStrLn "SCORES:"
                    putStr "Player 1: "
                    print p1
                    putStr "Player 2: "
                    print p2
                    putStrLn ""


-- STRATEGIES

-- Human plays. Input consist in 2 integers representing the starting coordinate
-- and a character (h or v) indicating if the line is horizontal or vertical
gameFinished :: Board -> IO ()
gameFinished b = do let (p1,p2) = scores b
                    putStrLn ""
                    putStrLn "GAME FINISHED!"
                    putStrLn ""
                    printBoard b
                    putStrLn "SCORES:"
                    putStr "Player 1: "
                    print p1
                    putStr "Player 2: "
                    print p2
                    putStrLn ""


-- STRATEGIES

-- Human plays. Input consist in 2 integers representing the starting coordinate
-- and a character (h or v) indicating if the line is horizontal or vertical
gameFinished b = do let (p1,p2) = scores b
                    putStrLn ""
                    putStrLn "GAME FINISHED!"
                    putStrLn ""
                    printBoard b
                    putStrLn "SCORES:"
                    putStr "Player 1: "
                    print p1
                    putStr "Player 2: "
                    print p2
                    putStrLn ""


-- STRATEGIES

-- Human plays. Input consist in 2 integers representing the starting coordinate
-- and a character (h or v) indicating if the line is horizontal or vertical