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