From: ross <unknown>
Date: Mon, 4 Jul 2005 10:22:17 +0000 (+0000)
Subject: [project @ 2005-07-04 10:22:17 by ross]
X-Git-Tag: cmm-merge2~67
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=be6a0ddb82f2a2cb61b87f6b3a49e7cfae3b90da;p=haskell-directory.git

[project @ 2005-07-04 10:22:17 by ross]
add Typeable instance
---

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