Implement modules changing shell payloads

2024-12-24 21:13:58 +00:00
parent e82ef26b3e
commit 81fd2131e0
18 changed files with 82 additions and 18 deletions
@@ -42,6 +42,7 @@ itemFromAttachType at = case at of
    --    ROCKETHOMER -> rocketHomer
    HOMINGMODULE -> homingModule
    AUGMENTEDHUD -> augmentedHUD
+    SHELLPAYLOAD p -> shellModule p

 itemFromEquipType :: EquipItemType -> Item
 itemFromEquipType et = case et of