diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2019-01-18 15:24:21 +0000 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2019-01-18 15:24:21 +0000 |
| commit | 391f3ccea45fe6f72a1d041a306fed7ee3a96db9 (patch) | |
| tree | 9d0f3ca15b481b675a3c3e19bea107d148c4aae5 /compiler/codeGen/StgCmmClosure.hs | |
| parent | 07e58c7d5b2186954987578abc0889cfe0fd9625 (diff) | |
| download | haskell-wip/T16185.tar.gz | |
Improvements to the AnonArgFlag stuffwip/T16185
One step forward is using CPP for FunTy
See Note [Function types] in TyCoRep
Diffstat (limited to 'compiler/codeGen/StgCmmClosure.hs')
| -rw-r--r-- | compiler/codeGen/StgCmmClosure.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/codeGen/StgCmmClosure.hs b/compiler/codeGen/StgCmmClosure.hs index caf5c427e9..425cc3eeef 100644 --- a/compiler/codeGen/StgCmmClosure.hs +++ b/compiler/codeGen/StgCmmClosure.hs @@ -928,7 +928,7 @@ getTyDescription ty TyVarTy _ -> "*" AppTy fun _ -> getTyDescription fun TyConApp tycon _ -> getOccString tycon - FunTy {} -> '-' : fun_result tau_ty + FFunTy {} -> '-' : fun_result tau_ty ForAllTy _ ty -> getTyDescription ty LitTy n -> getTyLitDescription n CastTy ty _ -> getTyDescription ty |