From 53b9e976303e41d3b279462b689e1c428ad4d70c Mon Sep 17 00:00:00 2001
From: Laura Hausmann <laura@hausmann.dev>
Date: Mon, 18 Mar 2024 15:37:28 +0100
Subject: [PATCH] [parsing] Prepare Iceshrimp.Parsing project for wasm
 compilation

---
 Iceshrimp.Parsing/Iceshrimp.Parsing.fsproj | 6 ++++++
 Iceshrimp.Parsing/SearchQuery.fs           | 2 ++
 2 files changed, 8 insertions(+)

diff --git a/Iceshrimp.Parsing/Iceshrimp.Parsing.fsproj b/Iceshrimp.Parsing/Iceshrimp.Parsing.fsproj
index 0860afdc..2932e5e4 100644
--- a/Iceshrimp.Parsing/Iceshrimp.Parsing.fsproj
+++ b/Iceshrimp.Parsing/Iceshrimp.Parsing.fsproj
@@ -4,6 +4,12 @@
         <TargetFramework>net8.0</TargetFramework>
         <GenerateDocumentationFile>true</GenerateDocumentationFile>
     </PropertyGroup>
+    
+    <PropertyGroup Condition="'$(WASM)' == 'true'">
+        <RuntimeIdentifier>browser-wasm</RuntimeIdentifier>
+        <PublishTrimmed>true</PublishTrimmed>
+        <RunAOTCompilation>true</RunAOTCompilation>
+    </PropertyGroup>
 
     <ItemGroup>
         <Compile Include="SearchQuery.fs"/>
diff --git a/Iceshrimp.Parsing/SearchQuery.fs b/Iceshrimp.Parsing/SearchQuery.fs
index c40163ea..47e649ba 100644
--- a/Iceshrimp.Parsing/SearchQuery.fs
+++ b/Iceshrimp.Parsing/SearchQuery.fs
@@ -1,6 +1,7 @@
 namespace Iceshrimp.Parsing
 
 open System
+open System.Runtime.InteropServices.JavaScript
 open FParsec
 
 module SearchQueryFilters =
@@ -247,6 +248,7 @@ module private SearchQueryParser =
 module SearchQuery =
     open SearchQueryParser
 
+    [<JSExport>]
     let parse str =
         match run parse str with
         | Success(result, _, _) -> result