X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=Data%2FGenerics%2FText.hs;h=61ad5a75ffd361705cb92ce6b7d74be0b9ffdc65;hb=82ef8f9d52a6f6eee52ac06ec6baf2bcbb73f10c;hp=1ad767fafee77004827d7abe045f3562e7c736c7;hpb=f70d7ea829ab1a153e7f76109c019fb9b37ac4a8;p=ghc-base.git

diff --git a/Data/Generics/Text.hs b/Data/Generics/Text.hs
index 1ad767f..61ad5a7 100644
--- a/Data/Generics/Text.hs
+++ b/Data/Generics/Text.hs
@@ -68,7 +68,7 @@ gread = readP_to_S gread'
  where
 
   -- Helper for recursive read
-  gread' :: Data a => ReadP a
+  gread' :: Data a' => ReadP a'
   gread' = allButString `extR` stringCase
 
    where
@@ -80,7 +80,7 @@ gread = readP_to_S gread'
     -- Determine result type
     myDataType = dataTypeOf (getArg allButString)
      where
-      getArg :: ReadP a -> a
+      getArg :: ReadP a'' -> a''
       getArg = undefined
 
     -- The generic default for gread