module Dodge.Default.Item ( defaultHeldItem, defaultCraftItem, ) where import Control.Lens import Dodge.Data.Item defaultHeldItem :: Item defaultHeldItem = Item { _itType = HELD PISTOL , _itConsumables = Nothing -- , _itEffect = defaultItEffect , _itID = 0 -- should this return an error ? const $ error "itID not correctly initialised" ? , _itTargeting = NoItTargeting , _itLocation = InVoid , _itUse = UseHeld , _itParams = NoParams -- , _itUseCondition = UseableWhenAimed , _itScroll = NoItemScroll , _itTimeLastUsed = 0 } defaultCraftItem :: Item defaultCraftItem = defaultHeldItem & itUse .~ UseNothing