diff options
Diffstat (limited to 'Resources.hs')
| -rw-r--r-- | Resources.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Resources.hs b/Resources.hs index a7f7c14..f06d8fa 100644 --- a/Resources.hs +++ b/Resources.hs @@ -253,7 +253,7 @@ buildTerrainObject builder = do "tundra.png" ] print terrainList terrainProg <- loadProgramSafe' "shaders/basic.vert" "shaders/basic.frag" (Nothing::Maybe String) - lst <- forM (zip [0..7::Int] $ terrainList ++ repeat "height.png") $ \(idx,str) -> do + lst <- forM (zip [0..7::Int] $ terrainList ++ repeat "terrain/unknown.png") $ \(idx,str) -> do location <- get $ uniformLocation terrainProg $ "textures[" ++! idx ++ "]" load str >>= textureFromSurface >>= return . (,) location |