{-# LANGUAGE TemplateHaskell #-} module Dodge.Data.Combine where import Control.Lens import Dodge.Data.Item data CombinableItem = CombinableItem { _ciInvIDs :: [Int] , _ciItem :: Item , _ciInfo :: [String] } makeLenses ''CombinableItem