From a56e3cfb8acd3c4273908d1bd49b39368a681bc9 Mon Sep 17 00:00:00 2001
From: Henning Guenther <h.guenther@tu-bs.de>
Date: Wed, 2 Jan 2008 06:57:47 -0800
Subject: [PATCH] Made BootString instance of Show, Eq and Typeable

darcs-hash:20080102145747-a4fee-af290555ad724b015336c8f08595ef95990877e6
---
 Data/Encoding/BootString.hs | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/Data/Encoding/BootString.hs b/Data/Encoding/BootString.hs
index f85e3c9..f413f1e 100644
--- a/Data/Encoding/BootString.hs
+++ b/Data/Encoding/BootString.hs
@@ -1,3 +1,4 @@
+{-# LANGUAGE DeriveDataTypeable #-}
 {- | This implements BootString en- and decoding, the foundation of Punycode
  -}
 module Data.Encoding.BootString
@@ -8,6 +9,7 @@ import Data.Encoding.Base
 import Data.ByteString.Char8 (pack,unpack)
 import Data.List (unfoldr,partition)
 import Data.Char (ord,chr)
+import Data.Typeable
 
 data BootString = BootString
 	{base :: Int
@@ -18,6 +20,7 @@ data BootString = BootString
 	,init_bias :: Int
 	,init_n    :: Int
 	}
+	deriving (Show,Eq,Typeable)
 
 punycode :: BootString
 punycode = BootString