From faeeeaa2579347a3e65d2b0c2cfaf102bac72a1a Mon Sep 17 00:00:00 2001
From: hasufell <hasufell@hasufell.de>
Date: Tue, 10 Feb 2015 04:17:31 +0100
Subject: [PATCH] HALFEDGE: add Show instance to indirect data structures

---
 Graphics/HalfEdge.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/Graphics/HalfEdge.hs b/Graphics/HalfEdge.hs
index 7740279..a985ddd 100644
--- a/Graphics/HalfEdge.hs
+++ b/Graphics/HalfEdge.hs
@@ -61,19 +61,20 @@ data IndirectHeEdge = IndirectHeEdge {
   , nvindex    :: Int  -- index of next-vertice
   , indexf     :: Int  -- index of face
   , offsetedge :: Int  -- offset to get the next edge
-}
+} deriving (Show)
 
 -- This is a helper data structure of half-edge vertices
 -- for tying the knots in 'indirectToDirect'.
 data IndirectHeVert = IndirectHeVert {
     emedgeindex  :: Int    -- emanating edge index (starts at 1)
   , edgelist     :: [Int]  -- index of edge that points to this vertice
-}
+} deriving (Show)
 
 -- This is a helper data structure of half-edge faces
 -- for tying the knots in 'indirectToDirect'.
 data IndirectHeFace =
   IndirectHeFace (Int, [Int]) -- (faceIndex, [verticeindex])
+  deriving (Show)
 
 
 -- |Construct the indirect data structure for half-edge faces.