[haddock @ 2002-06-03 13:46:48 by simonmar]

Fix for exporting record selectors from a newtype declaration

1 files changed, 6 insertions, 0 deletions

diff --git a/src/Main.hs b/src/Main.hs
index f26c473e..cb751180 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -362,6 +362,12 @@ extractDecl name mod decl
 	    HsDataDecl loc ctxt t tvs cons drvs mb_doc ->
 		extractRecSel name mod t tvs cons
 
+	    HsNewTypeDecl loc ctxt t tvs con drvs mb_doc ->
+		extractRecSel name mod t tvs [con]
+
+	    _ -> error ("extractDecl: "  ++ show decl)
+
+
 extractClassDecl c mod tvs (HsTypeSig loc [n] ty doc)
  = case ty of
  	HsForAllType tvs ctxt' ty' ->