module Dodge.Item.Attach
    (makeAttach
    )
    where

import Dodge.Data.Item
import Dodge.Default.Item
import Control.Lens

makeAttach :: AttachType -> Item
makeAttach t = defaultHeldItem
    & itType .~ ATTACH t
    & itUse .~ UseAttach APNothing