diff options
| author | simonpj@microsoft.com <unknown> | 2008-11-26 15:40:22 +0000 |
|---|---|---|
| committer | simonpj@microsoft.com <unknown> | 2008-11-26 15:40:22 +0000 |
| commit | a76ba381f76fd9a5178e815206466a97dab46f75 (patch) | |
| tree | 5bd823b4109fabb21bbaa6bd87e221f4a0b709f8 | |
| parent | c3712c026c7b6561d67ce2947cffae209646d4dc (diff) | |
| download | haskell-a76ba381f76fd9a5178e815206466a97dab46f75.tar.gz | |
Fix Trac #2817 (TH syntax -> HsSyn conversion)
| -rw-r--r-- | compiler/hsSyn/Convert.lhs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/compiler/hsSyn/Convert.lhs b/compiler/hsSyn/Convert.lhs index f3401f214f..06f611553c 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' } |