projects
/
ghc-base.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
428b870
)
removed (->) instance from Data.Data
author
jpm@cs.uu.nl
<unknown>
Mon, 6 Oct 2008 07:52:54 +0000
(07:52 +0000)
committer
jpm@cs.uu.nl
<unknown>
Mon, 6 Oct 2008 07:52:54 +0000
(07:52 +0000)
Data/Data.hs
patch
|
blob
|
history
diff --git
a/Data/Data.hs
b/Data/Data.hs
index
f2d4ec3
..
c812843
100644
(file)
--- 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
tuple0Constr :: Constr
tuple0Constr = mkConstr tuple0DataType "()" [] Prefix