diff options
| author | Manuel M T Chakravarty <chak@cse.unsw.edu.au> | 2006-09-20 17:48:55 +0000 |
|---|---|---|
| committer | Manuel M T Chakravarty <chak@cse.unsw.edu.au> | 2006-09-20 17:48:55 +0000 |
| commit | e380d180947b309f6d548ddb8a3f8144c08aaff4 (patch) | |
| tree | 09cf13932c92bdf1033b5d3d73cdea09942ff1ea /compiler/codeGen/SMRep.lhs | |
| parent | cd829ab3b15e6a7c30cedde2ca59fb5617aec32c (diff) | |
| download | haskell-e380d180947b309f6d548ddb8a3f8144c08aaff4.tar.gz | |
GADT selector bugfix, bits of cleanup
Mon Sep 18 16:48:32 EDT 2006 Manuel M T Chakravarty <chak@cse.unsw.edu.au>
* GADT selector bugfix, bits of cleanup
Sun Aug 6 19:43:47 EDT 2006 Manuel M T Chakravarty <chak@cse.unsw.edu.au>
* GADT selector bugfix, bits of cleanup
Thu Jul 27 08:10:58 EDT 2006 kevind@bu.edu
Diffstat (limited to 'compiler/codeGen/SMRep.lhs')
| -rw-r--r-- | compiler/codeGen/SMRep.lhs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/codeGen/SMRep.lhs b/compiler/codeGen/SMRep.lhs index c807703b13..521b62625a 100644 --- a/compiler/codeGen/SMRep.lhs +++ b/compiler/codeGen/SMRep.lhs @@ -158,13 +158,13 @@ primRepHint FloatRep = FloatHint primRepHint DoubleRep = FloatHint idCgRep :: Id -> CgRep -idCgRep = typeCgRep . idType +idCgRep x = typeCgRep . idType $ x tyConCgRep :: TyCon -> CgRep tyConCgRep = primRepToCgRep . tyConPrimRep typeCgRep :: Type -> CgRep -typeCgRep = primRepToCgRep . typePrimRep +typeCgRep = primRepToCgRep . typePrimRep typeHint :: Type -> MachHint typeHint = primRepHint . typePrimRep |