From c14920f7ad49d3170d6183fdd32baa2e8c92fb80 Mon Sep 17 00:00:00 2001
From: "davve@dtek.chalmers.se" <unknown>
Date: Fri, 29 Dec 2006 16:32:24 +0000
Subject: [PATCH] Add missing case for documented types in the type desugarer

---
 compiler/typecheck/TcHsType.lhs |    3 +++
 1 file changed, 3 insertions(+)

diff --git a/compiler/typecheck/TcHsType.lhs b/compiler/typecheck/TcHsType.lhs
index 4d3224c..7eac2a2 100644
--- 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}
 
-- 
1.7.10.4