diff options
| author | Josh Rahm <joshuarahm@gmail.com> | 2022-12-03 17:35:10 -0700 |
|---|---|---|
| committer | Josh Rahm <joshuarahm@gmail.com> | 2022-12-03 17:35:52 -0700 |
| commit | 601f77922490888c3ae9986674e332a5192008ec (patch) | |
| tree | 47a325f69af8b44f789d735e51743e4090e964b4 /Resources.hs | |
| parent | d2c266dd1dfe9ca3497e9b8966ac0086c3d4da62 (diff) | |
| download | terralloc-601f77922490888c3ae9986674e332a5192008ec.tar.gz terralloc-601f77922490888c3ae9986674e332a5192008ec.tar.bz2 terralloc-601f77922490888c3ae9986674e332a5192008ec.zip | |
Use Writer monad instead of MonadPlusWriter. I need to remove some of these redundant things!
Diffstat (limited to 'Resources.hs')
| -rw-r--r-- | Resources.hs | 6 |
1 files changed, 3 insertions, 3 deletions
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 |