Tweak level generation slightly

src/Tile.hs

@@ -1,12 +1,12 @@
 module Tile
-    ( tToRender
+    ( tileToRenderList
     , makeTileFromPoly
     ) where
 import Data.Tile
 import Geometry
 
-tToRender :: Tile -> [(Point3,Point3)]
-tToRender t = polyToTris $ zip ps3 coords3
+tileToRenderList :: Tile -> [(Point3,Point3)]
+tileToRenderList t = polyToTris $ zip ps3 coords3
   where
     ps = _tilePoly t
     coords = map (calcTexCoord (_tileZero t) (_tileX t)) ps