Cleanup constructors FooUse -> UseFoo

2024-10-03 20:39:41 +01:00
parent 6b4cf596b1
commit 127d85e7ce
10 changed files with 49 additions and 92 deletions
@@ -1,5 +1,10 @@
 module Dodge.Default.Item (
-    module Dodge.Default.Item,
+    defaultHeldItem,
+    singleAmmo,
+    defaultBulletWeapon,
+    defaultLeftItem,
+    defaultCraftItem,
+    defaultConsumable,
    module Dodge.Default.Item.Use,
 ) where

@@ -33,7 +38,7 @@ defaultLeftItem :: Item
 defaultLeftItem = defaultHeldItem & itUse .~ defaultLeftUse

 defaultCraftItem :: Item
-defaultCraftItem = defaultHeldItem & itUse .~ CraftUse
+defaultCraftItem = defaultHeldItem & itUse .~ UseCraft

 singleAmmo :: a -> IM.IntMap a
 singleAmmo x = IM.insert 0 x mempty