From a76ba381f76fd9a5178e815206466a97dab46f75 Mon Sep 17 00:00:00 2001 From: "simonpj@microsoft.com" Date: Wed, 26 Nov 2008 15:40:22 +0000 Subject: [PATCH] Fix Trac #2817 (TH syntax -> HsSyn conversion) --- compiler/hsSyn/Convert.lhs | 2 ++ 1 file changed, 2 insertions(+) diff --git a/compiler/hsSyn/Convert.lhs b/compiler/hsSyn/Convert.lhs index f3401f2..06f6115 100644 --- a/compiler/hsSyn/Convert.lhs +++ b/compiler/hsSyn/Convert.lhs @@ -532,7 +532,9 @@ cvtType ty = do { (head_ty, tys') <- split_ty_app ty | n == 1 -> failWith (ptext (sLit "Illegal 1-tuple type constructor")) | otherwise -> mk_apps (HsTyVar (getRdrName (tupleTyCon Boxed n))) tys' ArrowT | [x',y'] <- tys' -> returnL (HsFunTy x' y') + | otherwise -> mk_apps (HsTyVar (getRdrName funTyCon)) tys' ListT | [x'] <- tys' -> returnL (HsListTy x') + | otherwise -> mk_apps (HsTyVar (getRdrName listTyCon)) tys' VarT nm -> do { nm' <- tName nm; mk_apps (HsTyVar nm') tys' } ConT nm -> do { nm' <- tconName nm; mk_apps (HsTyVar nm') tys' } -- 1.7.10.4