diff options
| author | doyougnu <jeffrey.young@iohk.io> | 2022-05-12 11:56:18 -0400 |
|---|---|---|
| committer | doyougnu <jeffrey.young@iohk.io> | 2022-06-13 13:42:41 -0400 |
| commit | 83ef82482eea4b146b45683a069cffee88c9ff13 (patch) | |
| tree | 79299330f86d17beee72466bf694985748cc9392 /compiler | |
| parent | 300dbce0b3f7318ca4a545944911ea371cb24c38 (diff) | |
| download | haskell-83ef82482eea4b146b45683a069cffee88c9ff13.tar.gz | |
JS.CoreUtils: handle IOPort case
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/GHC/StgToJS/CoreUtils.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/compiler/GHC/StgToJS/CoreUtils.hs b/compiler/GHC/StgToJS/CoreUtils.hs index c52abf88b6..a99518ed7a 100644 --- a/compiler/GHC/StgToJS/CoreUtils.hs +++ b/compiler/GHC/StgToJS/CoreUtils.hs @@ -200,6 +200,7 @@ primTypeVt t = case tyConAppTyCon_maybe (unwrapType t) of | tc == mVarPrimTyCon -> RtsObjV | tc == tVarPrimTyCon -> RtsObjV | tc == bcoPrimTyCon -> RtsObjV -- fixme what do we need here? + | tc == ioPortPrimTyCon -> RtsObjV -- FIXME: Jeff (2022, 05) IOPort, how to handle in JS? | tc == anyTyCon -> PtrV | tc == compactPrimTyCon -> ObjV -- unsupported? | tc == eqPrimTyCon -> VoidV -- coercion token? |