Remove (by commenting out) module item-type system

src/Dodge/Item/Info.hs

@@ -11,7 +11,7 @@ itemInfo :: Item -> String
 itemInfo itm =
     itmBaseInfo itm ++ " " ++ itmUsageInfo itm
         ++ itmSpaceInfo itm
-        ++ itmModuleInfo (itm ^. itType . iyModules)
+--        ++ itmModuleInfo (itm ^. itType . iyModules)
 
 itmSpaceInfo :: Item -> String
 itmSpaceInfo itm = case ceiling $ _itInvSize itm of
@@ -232,22 +232,22 @@ equipSiteInfo es = case es of
     GoesOnWrist -> " on a wrist"
     GoesOnLegs -> " on both legs"
 
-itmModuleInfo :: M.Map ModuleSlot ItemModuleType -> String
-itmModuleInfo m
-    | m == mempty = ""
-    | otherwise = mms ++ ems
-  where
-    (mademods, emptymods) = M.partition (/= EMPTYMODULE) m
-    mms
-        | mademods == mempty = ""
-        | otherwise =
-            " Modifications have been made "
-                ++ makeCommaList (map moduleInfo $ M.keys mademods)
-    ems
-        | emptymods == mempty = ""
-        | otherwise =
-            " Modifications can be made "
-                ++ makeCommaList (map moduleInfo $ M.keys emptymods)
+--itmModuleInfo :: M.Map ModuleSlot ItemModuleType -> String
+--itmModuleInfo m
+--    | m == mempty = ""
+--    | otherwise = mms ++ ems
+--  where
+--    (mademods, emptymods) = M.partition (/= EMPTYMODULE) m
+--    mms
+--        | mademods == mempty = ""
+--        | otherwise =
+--            " Modifications have been made "
+--                ++ makeCommaList (map moduleInfo $ M.keys mademods)
+--    ems
+--        | emptymods == mempty = ""
+--        | otherwise =
+--            " Modifications can be made "
+--                ++ makeCommaList (map moduleInfo $ M.keys emptymods)
 
 makeCommaList :: [String] -> String
 makeCommaList [] = ""