From 0e8f3500b1e40f2b0291f4d5a9f29052c13fca77 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Fri, 25 Feb 2005 10:42:24 +0000
Subject: [PATCH 1/1] [project @ 2005-02-25 10:42:24 by simonmar] Add instance
 Typeable Queue

---
 Data/Queue.hs |    4 ++++
 1 file changed, 4 insertions(+)

diff --git a/Data/Queue.hs b/Data/Queue.hs
index 91a7d34..6a06670 100644
--- a/Data/Queue.hs
+++ b/Data/Queue.hs
@@ -24,10 +24,14 @@ module Data.Queue(
     ) where
 
 import Prelude -- necessary to get dependencies right
+import Data.Typeable
 
 -- | The type of FIFO queues.
 data Queue a = Q [a] [a] [a]
 
+#include "Typeable.h"
+INSTANCE_TYPEABLE1(Queue,queueTc,"Queue")
+
 -- Invariants for Q xs ys xs':
 --	length xs = length ys + length xs'
 --	xs' = drop (length ys) xs	-- in fact, shared (except after fmap)
-- 
1.7.10.4