diff options
| author | Tamar Christina <tamar@zhox.com> | 2019-06-16 21:54:23 +0100 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2020-07-15 16:41:01 -0400 |
| commit | 90e69f779b6da755fac472337535a1321cbb7917 (patch) | |
| tree | 935ccfc0e38bfae2133b926347edb51bafecdfa7 /utils/genprimopcode | |
| parent | 356dc3feae967b1c361130f1f356ef9ad6a693e4 (diff) | |
| download | haskell-90e69f779b6da755fac472337535a1321cbb7917.tar.gz | |
winio: Add IOPort synchronization primitive
Diffstat (limited to 'utils/genprimopcode')
| -rw-r--r-- | utils/genprimopcode/Main.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/utils/genprimopcode/Main.hs b/utils/genprimopcode/Main.hs index 31d363c0fa..3fe744fec3 100644 --- a/utils/genprimopcode/Main.hs +++ b/utils/genprimopcode/Main.hs @@ -919,6 +919,8 @@ ppType (TyApp (TyCon "StableName#") [x]) = "mkStableNamePrimTy " ++ ppType x ppType (TyApp (TyCon "MVar#") [x,y]) = "mkMVarPrimTy " ++ ppType x ++ " " ++ ppType y +ppType (TyApp (TyCon "IOPort#") [x,y]) = "mkIOPortPrimTy " ++ ppType x + ++ " " ++ ppType y ppType (TyApp (TyCon "TVar#") [x,y]) = "mkTVarPrimTy " ++ ppType x ++ " " ++ ppType y ppType (TyApp (TyCon "Void#") []) = "voidPrimTy" |