15 lines
253 B
Haskell
15 lines
253 B
Haskell
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
|
|
|