diff options
| -rw-r--r-- | compiler/GHC/HsToCore/Foreign/Decl.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/compiler/GHC/HsToCore/Foreign/Decl.hs b/compiler/GHC/HsToCore/Foreign/Decl.hs index 0c04929984..3575dda036 100644 --- a/compiler/GHC/HsToCore/Foreign/Decl.hs +++ b/compiler/GHC/HsToCore/Foreign/Decl.hs @@ -684,6 +684,7 @@ mkFExportCBits dflags c_nm maybe_target arg_htys res_hty is_IO_res_ty cc foreignExportsInitialiser :: Module -> [Id] -> CStub +foreignExportsInitialiser _ [] = mempty foreignExportsInitialiser mod hs_fns = -- Initialise foreign exports by registering a stable pointer from an -- __attribute__((constructor)) function. |