From 95b10eaccd0763fc08781c0d61a26d1abe1fb6c0 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Mon, 3 Jun 2002 13:46:48 +0000
Subject: [haddock @ 2002-06-03 13:46:48 by simonmar] Fix for exporting record
 selectors from a newtype declaration

---
 src/Main.hs | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'src/Main.hs')

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' -> 
-- 
cgit v1.2.3