Work towards duct taping torch

2022-07-14 10:50:12 +01:00
parent bfe9073808
commit 2cfa3ca3a7
8 changed files with 40 additions and 11 deletions
@@ -45,6 +45,7 @@ moduleName imt = case imt of
    WEPTELE     -> Just "+DIRECTEDTELE"
    LAUNCHHOME  -> Just "+TARGET HOMING"
    EXTRABATTERY -> Just "+BATTERY"
+    ATTACHTORCH  -> Just "+TORCH"

 --moduleFold :: (m -> m -> m) -> (ItemModule -> Maybe m) -> m -> Item -> m
 --moduleFold g f e = foldr (g . fromMaybe e . f) e