Add TH support for type-level literals.
[ghc.git] / compiler / hsSyn / Convert.lhs
index 4bff46c..0072abc 100644 (file)
@@ -297,6 +297,7 @@ cvt_tyinst_hdr cxt tc tys
            }
     collect (SigT (VarT tv) ki) = return [KindedTV tv ki]
     collect (SigT ty _)         = collect ty
+    collect (LitT _)    = return []
 
 -------------------------------------------------------------------
 --             Partitioning declarations