diff options
| -rw-r--r-- | compiler/cmm/PprC.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/compiler/cmm/PprC.hs b/compiler/cmm/PprC.hs index 4e73ade7ba..ed99855065 100644 --- a/compiler/cmm/PprC.hs +++ b/compiler/cmm/PprC.hs @@ -230,6 +230,8 @@ pprStmt stmt = pprCall cast_fn cconv hresults hargs <> semi) -- for a dynamic call, no declaration is necessary. + CmmUnsafeForeignCall (PrimTarget MO_Touch) _results _args -> empty + CmmUnsafeForeignCall target@(PrimTarget op) results args -> proto $$ fn_call where |