Commit c14920f7 authored by davve@dtek.chalmers.se's avatar davve@dtek.chalmers.se
Browse files

Add missing case for documented types in the type desugarer

parent 374c57e5
......@@ -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}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment