Move toward adding infoboxes/better creature information display

src/Dodge/Render.hs

@@ -116,7 +116,7 @@ doDrawing pdata u = do
         else renderBlankWalls pdata nWalls
     --draw object pictures onto base buffer
     renderLayer 0 shadV layerCounts
-    --draw object shpaes onto base buffer
+    --draw object shapes onto base buffer
     let fs = _shapeShader pdata
     currentProgram $= Just (_shadProg fs)
     bindVertexArrayObject $= Just (_vao $ _shadVAO fs)