getData :: IO [Coord]
getData = do
  raw <- Tx.IO.readFile "data/2018/day06.txt"
  case parse gridParser "day06" raw of
    Left err -> error $ show err
    Right x -> pure x
getData :: IO [Coord]
getData = do
  raw <- Tx.IO.readFile "data/2018/day06.txt"
  case parse gridParser "day06" raw of
    Left err -> error $ show err
    Right x -> pure x
getData = do
  raw <- Tx.IO.readFile "data/2018/day06.txt"
  case parse gridParser "day06" raw of
    Left err -> error $ show err
    Right x -> pure x