Cleanup defaults

This commit is contained in:
2026-01-02 21:33:00 +00:00
parent 02da762f2f
commit 3cc439b877
20 changed files with 259 additions and 313 deletions
+6 -6
View File
@@ -1,13 +1,13 @@
module Dodge.Default.Item (
defaultHeldItem,
defaultCraftItem,
defHeldItem,
defCraftItem,
) where
import Control.Lens
import Dodge.Data.Item
defaultHeldItem :: Item
defaultHeldItem =
defHeldItem :: Item
defHeldItem =
Item
{ _itType = HELD PISTOL
, _itConsumables = Nothing
@@ -22,5 +22,5 @@ defaultHeldItem =
, _itTimeLastUsed = 0
}
defaultCraftItem :: Item
defaultCraftItem = defaultHeldItem & itUse .~ UseNothing
defCraftItem :: Item
defCraftItem = defHeldItem & itUse .~ UseNothing