Add missing case for documented types in the type desugarer

c14920f7 · davve@dtek.chalmers.se · 374c57e5 · c14920f7
Commit c14920f7 authored Dec 29, 2006 by davve@dtek.chalmers.se
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 0 deletions

compiler/typecheck/TcHsType.lhs compiler/typecheck/TcHsType.lhs +3 -0

No files found.
--- a/compiler/typecheck/TcHsType.lhs
+++ b/compiler/typecheck/TcHsType.lhs
@@ -506,6 +506,9 @@ ds_type full_ty@(HsForAllTy exp tv_names ctxt ty)

 ds_type (HsSpliceTy {}) = panic "ds_type: HsSpliceTy"

+ds_type (HsDocTy ty _)  -- Remove the doc comment
+  = dsHsType ty
+
 dsHsTypes arg_tys = mappM dsHsType arg_tys
 \end{code}