From 60befe389b3a38f99ef560b74659bddd57bddd1c Mon Sep 17 00:00:00 2001
From: Jed Barber <jjbarber@y7mail.com>
Date: Sat, 6 Dec 2014 20:48:46 +1100
Subject: Added garbage collection

---
 src/Grasp/Types/IP.hs | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'src/Grasp/Types/IP.hs')

diff --git a/src/Grasp/Types/IP.hs b/src/Grasp/Types/IP.hs
index c7d3e4b..a548cc3 100644
--- a/src/Grasp/Types/IP.hs
+++ b/src/Grasp/Types/IP.hs
@@ -7,7 +7,9 @@ module Grasp.Types.IP (
     peek,
     push,
     pop,
-    shift
+    shift,
+
+    toList
 	) where
 
 
@@ -45,3 +47,6 @@ pop (IP p) = if (length p == 0) then empty else IP (tail p)
 shift :: GNode -> IP -> IP
 shift n (IP p) = if (length p == 0) then empty else IP (n:(tail p))
 
+toList :: IP -> [GNode]
+toList (IP p) = p
+
-- 
cgit