Cleanup defaults
This commit is contained in:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user