From 84b66ed4bae2f14c99eed74b1d40edc35f8e2b84 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Sun, 16 Nov 2008 16:02:28 +0000 Subject: [PATCH] Change an "undefined" into a more informative error; trac #2782 --- Data/Data.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Data/Data.hs b/Data/Data.hs index 0ef5fd3..930fcdd 100644 --- a/Data/Data.hs +++ b/Data/Data.hs @@ -432,7 +432,7 @@ newtype Mp m x = Mp { unMp :: m (x, Bool) } -- | Build a term skeleton fromConstr :: Data a => Constr -> a -fromConstr = fromConstrB undefined +fromConstr = fromConstrB (error "Data.Data.fromConstr") -- | Build a term and use a generic function for subterms -- 1.7.10.4