diff options
| -rw-r--r-- | src/Main.hs | 6 |
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' -> |