Change an "undefined" into a more informative error; trac #2782

[ghc-base.git] / Data / Data.hs

diff --git a/Data/Data.hs b/Data/Data.hs
index 0ef5fd3..930fcdd 100644 (file)
--- 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