- | column == 4 && row == 3 = S.fromList [ Cell { level = (level + 1), row = r, column = 5} | r <- [1..gridSize] ]
- | column == 1 = S.singleton ( Cell { level = (level - 1), row = 3, column = 2})
- | otherwise = S.singleton ( Cell { level, row, column = (column - 1)})
+ | column == 4 && row == 3 = S.fromList [ Cell { level = (level + 1),
+ row = r, column = 5}
+ | r <- [1..gridSize] ]
+ | column == 1 = S.singleton ( Cell { level = (level - 1),
+ row = 3, column = 2})
+ | otherwise = S.singleton ( Cell { column = (column - 1), ..})