aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/Main.hs6
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' ->