From 87b70cd93a686793c61b38dcae900ab8180dbf3b Mon Sep 17 00:00:00 2001
From: nek0 <nek0@nek0.eu>
Date: Sat, 24 Jul 2021 03:33:12 +0200
Subject: [PATCH] better description

---
 src/Graphics/Classes/Drawable.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Graphics/Classes/Drawable.hs b/src/Graphics/Classes/Drawable.hs
index f634754..0da34fc 100644
--- a/src/Graphics/Classes/Drawable.hs
+++ b/src/Graphics/Classes/Drawable.hs
@@ -13,6 +13,6 @@ class Drawable a where
   -- -- | List type for resulting vertices and indices
   -- type VertexList a :: * -> *
 
-  -- | converter function
-  -- toVertices :: a -> ((VertexList a) Word, (VertexList a) Vertex)
+  -- | Function returning a tuple of Vectors of draw order indices and the
+  -- appropriate vertices.
   toVertices :: a -> (V.Vector Word, V.Vector Vertex)