diff options
| author | Ian Lynagh <igloo@earth.li> | 2011-10-03 11:03:36 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2011-10-03 11:06:01 +0100 |
| commit | aff9d6908525567cdeca09c7ef40bee34459cd31 (patch) | |
| tree | ce1e0dc09a1017597a8922dedc41c4d8dcf4c20b /utils/genprimopcode/Main.hs | |
| parent | 25f8f25a494f765d644a7dd1ead5c0a5058b8c36 (diff) | |
| download | haskell-aff9d6908525567cdeca09c7ef40bee34459cd31.tar.gz | |
Handle HValues slightly nicer
We now have addrToAny# rather than addrToHValue#, and both addrToAny#
and mkApUpd0# return "Any" rather than "a". This makes it a little
easier to see what's going on, and fixes a warning in ByteCodeLink.
Diffstat (limited to 'utils/genprimopcode/Main.hs')
| -rw-r--r-- | utils/genprimopcode/Main.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/utils/genprimopcode/Main.hs b/utils/genprimopcode/Main.hs index ddae677262..df6c46b2b7 100644 --- a/utils/genprimopcode/Main.hs +++ b/utils/genprimopcode/Main.hs @@ -621,6 +621,7 @@ ppTyVar "o" = "openAlphaTyVar" ppTyVar _ = error "Unknown type var" ppType :: Ty -> String +ppType (TyApp "Any" []) = "anyTy" ppType (TyApp "Bool" []) = "boolTy" ppType (TyApp "Int#" []) = "intPrimTy" |