dleMessage ::Handle -> [Char] -> Value -> IO ()
handleMessage h "chessboard" boardJson = do
  let board = fromOk $ GJ.fromJSON boardJson :: ChessBoard
  putStrLn $ "<< " ++ (show board)

in
handleMessage ::Handle -> [Char] -> Value -> IO ()
handleMessage h "chessboard" boardJson = do
  let board = fromOk $ GJ.fromJSON boardJson :: ChessBoard
  putStrLn $ "<< " ++ (show board)
handleMessage h "chessboard" boardJson = do
  let board = fromOk $ GJ.fromJSON boardJson :: ChessBoard
  putStrLn $ "<< " ++ (show board)