From: Ian Lynagh <igloo@earth.li>
Date: Tue, 29 May 2007 20:54:20 +0000 (+0000)
Subject: Add Data instance for PackedString; patch from greenrd in trac #1263
X-Git-Tag: 2007-09-13~71
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=b12ac2e1533baca5a18b7b0de09fb036570f035f;p=ghc-base.git

Add Data instance for PackedString; patch from greenrd in trac #1263
---

diff --git a/Data/PackedString.hs b/Data/PackedString.hs
index 1160d34..50d6b00 100644
--- a/Data/PackedString.hs
+++ b/Data/PackedString.hs
@@ -79,6 +79,7 @@ import Data.Array.Unboxed
 import Data.Array.IO
 import Data.Typeable
 import Data.Char
+import Data.Generics
 
 import System.IO
 
@@ -432,3 +433,11 @@ splitWithPS p =
 joinPS sep  = concatPS . intersperse sep
 
 #endif
+
+instance Data PackedString where
+     gunfold k z c = error "gunfold"
+     toConstr (PS _) = con_PS
+     dataTypeOf _ = ty_PackedString
+
+con_PS = mkConstr ty_PackedString "PS" [] Prefix
+ty_PackedString   = mkDataType "Data.PackedString.PackedString" [con_PS]