X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FhsSyn%2FConvert.lhs;h=06f611553c67828537ec522f5a4335c3c7628322;hb=a76ba381f76fd9a5178e815206466a97dab46f75;hp=f3401f214f633db7609f884824356b4addc5d2d4;hpb=9bcd95bad83ee937c178970e8b729732e680fe1e;p=ghc-hetmet.git

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' }