Commit on returning to work

2023-09-21 09:17:49 +01:00
parent b8f03f7d8c
commit 9ee925f13a
17 changed files with 56 additions and 32 deletions
@@ -22,8 +22,7 @@ moduleStrings = M.elems . M.mapMaybe moduleName . _iyModules . _itType
 moduleName :: ItemModuleType -> Maybe String
 moduleName imt = case imt of
    EMPTYMODULE -> Nothing
-    DRUMMAG -> Just "+DRUM MAG"
-    BELTMAG -> Just "+BELT FEED"
+--    BELTMAG -> Just "+BELT FEED"
    MAGNETMAG -> Just "+MAGNET FEED"
    BULPAY thepayload -> Just $ "+" ++ displayBulletPayload thepayload
    BULBODY thebody -> Just $ "+" ++ displayBulletBody thebody