-- Change the input format to the game format
normalizeEdge :: [String] -> String -> Edge
normalizeEdge [c1,c2] d
  | d == "v"  = ((x,y),(x+1,y))
  | d == "h"  = ((x,y),(x,y+1))
  | otherwise = ((x,y),(x,y))
    where x = read c1 :: Int
          y = read c2 :: Int


-- BOARD UPDATING

-- Put the edge in the board, if that edge makes an square, the boolean is set to true
normalizeEdge :: [String] -> String -> Edge
normalizeEdge [c1,c2] d
  | d == "v"  = ((x,y),(x+1,y))
  | d == "h"  = ((x,y),(x,y+1))
  | otherwise = ((x,y),(x,y))
    where x = read c1 :: Int
          y = read c2 :: Int


-- BOARD UPDATING

-- Put the edge in the board, if that edge makes an square, the boolean is set to true
normalizeEdge [c1,c2] d
  | d == "v"  = ((x,y),(x+1,y))
  | d == "h"  = ((x,y),(x,y+1))
  | otherwise = ((x,y),(x,y))
    where x = read c1 :: Int
          y = read c2 :: Int


-- BOARD UPDATING

-- Put the edge in the board, if that edge makes an square, the boolean is set to true