Fix bug where unsafeCoerce removal was not bound to LamderaGenerated.…

…elm only
lamdera · May 1, 2024 · 4dd2053 · 4dd2053
1 parent dbc1f91
commit 4dd2053
Showing 1 changed file with 10 additions and 3 deletions.
diff --git a/extra/Lamdera/Evergreen/ModifyAST.hs b/extra/Lamdera/Evergreen/ModifyAST.hs
@@ -36,10 +36,17 @@ update :: Can.Module -> Can.Module
 update canonical =
   let
     moduleName :: Module.Canonical = (Can._name canonical)
-    decls :: Can.Decls = (Can._decls canonical) & removeUnsafeCoercePlaceholder
-    newDecls :: Can.Decls = updateDecls moduleName decls
   in
-  canonical { Can._decls = newDecls }
+  case moduleName of
+    Module.Canonical (Name "author" "project") "LamderaHelpers" ->
+      let
+        decls :: Can.Decls = (Can._decls canonical) & removeUnsafeCoercePlaceholder
+        newDecls :: Can.Decls = updateDecls moduleName decls
+      in
+      canonical { Can._decls = newDecls }
+
+    _ ->
+      canonical
 
 
 removeUnsafeCoercePlaceholder :: Can.Decls -> Can.Decls