Cleanup

src/Dodge/Item/Craftable.hs

@@ -1,14 +1,19 @@
-module Dodge.Item.Craftable 
-     where
+module Dodge.Item.Craftable (
+    makeTypeCraft,
+    makeTypeCraftNum,
+    pipe,
+    metalPlate,
+) where
 
-import Dodge.Default.Item
 import Control.Lens
 import Dodge.Data.Item
+import Dodge.Default.Item
 
 makeTypeCraftNum :: Int -> CraftType -> [Item]
-makeTypeCraftNum i ct = replicate i $
-    defaultCraftItem
-        & itType .~ CRAFT ct
+makeTypeCraftNum i ct =
+    replicate i $
+        defaultCraftItem
+            & itType .~ CRAFT ct
 
 makeTypeCraft :: CraftType -> Item
 makeTypeCraft = head . makeTypeCraftNum 1
@@ -20,27 +25,12 @@ makeTypeCraft = head . makeTypeCraftNum 1
 --incendiaryModule = energyBallCraft IncBall
 
 --bulletBodyCraft :: BulletEffect -> Item
---bulletBodyCraft ebt = 
+--bulletBodyCraft ebt =
 --    makeTypeCraft (BULBODYCRAFT ebt)
 --        & itInvSize .~ 1
 
---bounceModule :: Item
---bounceModule = bulletBodyCraft BounceBullet
-
-teleportModule :: Item
-teleportModule = makeTypeCraft TELEPORTMODULE
-
-timeModule :: Item
-timeModule = makeTypeCraft TIMEMODULE
-
-sizeModule :: Item
-sizeModule = makeTypeCraft SIZEMODULE
-
-gravityModule :: Item
-gravityModule = makeTypeCraft GRAVITYMODULE
-
 pipe :: Item
 pipe = makeTypeCraft PIPE
 
-plateCraft :: Item
-plateCraft = makeTypeCraft PLATE
+metalPlate :: Item
+metalPlate = makeTypeCraft PLATE