Merge remote-tracking branch 'origin/snow'

1 files changed, 2 insertions, 0 deletions

diff --git a/Final.hs b/Final.hs
index 3a7596f..f17703c 100644
--- a/Final.hs
+++ b/Final.hs
@@ -127,6 +127,7 @@ colorArray marr = do
  - 2 things:
  - A map of water bodies ids to elevations (to detect if you are under water
  - A builder that will generate all of the quads for the water. -}
+
 getWaterQuads :: Array (Int,Int) Tile -> IOArray (Int,Int) Int -> IO ( Map.Map Int GLfloat, BuilderM GLfloat () )
 getWaterQuads marr arr = do
     let (_,(w,h)) = bounds marr
@@ -351,6 +352,7 @@ main = do
 
     (mapping,water) <- getWaterQuads arr coloredArr
     coloredArr2 <- mapArray (\idx -> if idx == 0 then -1 else Map.findWithDefault (-1) idx mapping) coloredArr
+
     printShowArray coloredArr2
     printArray arr