From 601f77922490888c3ae9986674e332a5192008ec Mon Sep 17 00:00:00 2001
From: Josh Rahm <joshuarahm@gmail.com>
Date: Sat, 3 Dec 2022 17:35:10 -0700
Subject: Use Writer monad instead of MonadPlusWriter. I need to remove some of
 these redundant things!

---
 Resources.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'Resources.hs')

diff --git a/Resources.hs b/Resources.hs
index d446796..ce38b21 100644
--- a/Resources.hs
+++ b/Resources.hs
@@ -746,13 +746,13 @@ makeResources window builder forestB jungleB water arr waterarr = do
                 depthFunc $= Just Less),
             buildTerrainObject builder,
             (return $ \_-> do
-                blend $= Enabled
+                blend $= Disabled
                 cullFace $= Just Back
                 blendFunc $= (GL.SrcAlpha,OneMinusSrcAlpha)),
             buildWaterObject water,
             buildForestObject forestB "tree.obj" "textures/wood_low.png",
-            buildForestObject jungleB "jungletree.obj" "textures/jungle_tree.png",
-            buildSnowObject arr stdgen
+            buildForestObject jungleB "jungletree.obj" "textures/jungle_tree.png"
+            -- buildSnowObject arr stdgen
             -- cloudProgram
          ]
     Resources 
-- 
cgit