From be6a0ddb82f2a2cb61b87f6b3a49e7cfae3b90da Mon Sep 17 00:00:00 2001
From: ross <unknown>
Date: Mon, 4 Jul 2005 10:22:17 +0000
Subject: [PATCH] [project @ 2005-07-04 10:22:17 by ross] add Typeable
 instance

---
 Data/Tree.hs |    5 +++++
 1 file changed, 5 insertions(+)

diff --git a/Data/Tree.hs b/Data/Tree.hs
index 5c95f2a..8137f86 100644
--- a/Data/Tree.hs
+++ b/Data/Tree.hs
@@ -31,6 +31,9 @@ import Prelude
 import Control.Monad
 import Data.Maybe
 import Data.Queue
+import Data.Typeable
+
+#include "Typeable.h"
 
 -- | Multi-way trees, also known as /rose trees/.
 data Tree a   = Node {
@@ -46,6 +49,8 @@ instance Show a => Show (Tree a)
 #endif
 type Forest a = [Tree a]
 
+INSTANCE_TYPEABLE1(Tree,treeTc,"Tree")
+
 instance Functor Tree where
   fmap = mapTree
 
-- 
1.7.10.4