From afc892503bb2b92e95661d800c0544aebc46b32f Mon Sep 17 00:00:00 2001 From: "jpm@cs.uu.nl" Date: Mon, 6 Oct 2008 07:52:54 +0000 Subject: [PATCH] removed (->) instance from Data.Data --- Data/Data.hs | 14 -------------- 1 file changed, 14 deletions(-) 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 -- 1.7.10.4