Update Sudoku.hs