app/Skynet.hs:16:1: warning: [-Wincomplete-patterns]
    Pattern match(es) are non-exhaustive
    In an equation for ‘evalBoard’:
        Patterns of type ‘Board’ not matched:
            Board.Board
            (Data.Sequence.Internal.Seq Data.Sequence.Internal.EmptyT)
            Board.Board
            (Data.Sequence.Internal.Seq (Data.Sequence.Internal.Single _))
            Board.Board
            (Data.Sequence.Internal.Seq (Data.Sequence.Internal.Deep _ _ _ _))
   |
16 | evalBoard board
   | ^^^^^^^^^^^^^^^..


===================================

evalBoard :: Board -> Int
evalBoard board
  | Board.hasWon Player.O board =  -1
  | Board.isFull board          =   0
  | Board.hasWon Player.X board =   1