From 12a7b51eb44c82ecc44f79f86a15d7edecba9862 Mon Sep 17 00:00:00 2001
From: Richard Feldman <oss@rtfeldman.com>
Date: Tue, 6 Dec 2022 14:25:43 -0500
Subject: [PATCH] Move some logic into HeaderFor

---
 crates/compiler/load_internal/src/file.rs | 4 ++++
 crates/compiler/parse/src/header.rs       | 7 ++++++-
 2 files changed, 10 insertions(+), 1 deletion(-)

diff --git a/crates/compiler/load_internal/src/file.rs b/crates/compiler/load_internal/src/file.rs
index 81f488e9f4..16cc96e570 100644
--- a/crates/compiler/load_internal/src/file.rs
+++ b/crates/compiler/load_internal/src/file.rs
@@ -4468,6 +4468,10 @@ fn send_header_two<'a>(
         config_shorthand: opt_shorthand.unwrap_or_default(),
         platform_main_type: requires[0].value,
         main_for_host,
+        opt_app_module_id,
+        provides,
+        requires,
+        requires_types,
     };
 
     let mut package_qualified_imported_modules = MutSet::default();
diff --git a/crates/compiler/parse/src/header.rs b/crates/compiler/parse/src/header.rs
index 6a3177cf8a..8f03fc53c7 100644
--- a/crates/compiler/parse/src/header.rs
+++ b/crates/compiler/parse/src/header.rs
@@ -5,7 +5,7 @@ use crate::parser::{optional, then};
 use crate::parser::{specialize, word1, EPackageEntry, EPackageName, Parser};
 use crate::string_literal;
 use bumpalo::collections::Vec;
-use roc_module::symbol::Symbol;
+use roc_module::symbol::{ModuleId, Symbol};
 use roc_region::all::Loc;
 use std::fmt::Debug;
 
@@ -23,6 +23,11 @@ pub enum HeaderFor<'a> {
         generates_with: &'a [Symbol],
     },
     Platform {
+        opt_app_module_id: Option<ModuleId>,
+        provides: &'a [Loc<ExposedName<'a>>],
+        requires: &'a [Loc<TypedIdent<'a>>],
+        requires_types: &'a [Loc<UppercaseIdent<'a>>],
+
         /// usually `pf`
         config_shorthand: &'a str,
         /// the type scheme of the main function (required by the platform)