From: jpm@cs.uu.nl <unknown>
Date: Mon, 6 Oct 2008 07:52:54 +0000 (+0000)
Subject: removed (->) instance from Data.Data
X-Git-Tag: 2009-06-25~108
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=afc892503bb2b92e95661d800c0544aebc46b32f;p=ghc-base.git

removed (->) instance from Data.Data
---

diff --git a/Data/Data.hs b/Data/Data.hs
index f2d4ec3..c812843 100644
--- a/Data/Data.hs
+++ b/Data/Data.hs
@@ -1132,20 +1132,6 @@ instance (Data a, Data b) => Data (Either a b) where
 
 ------------------------------------------------------------------------------
 
-
---
--- A last resort for functions
---
-
-instance (Data a, Data b) => Data (a -> b) where
-  toConstr _   = error "toConstr"
-  gunfold _ _  = error "gunfold"
-  dataTypeOf _ = mkNorepType "Prelude.(->)"
-  dataCast2 f  = gcast2 f
-
-
-------------------------------------------------------------------------------
-
 tuple0Constr :: Constr
 tuple0Constr = mkConstr tuple0DataType "()" [] Prefix