module Hrpg.Framework.Items.Item
      ( createItem
      , Item (..)
      ) where

import Control.Monad
import Control.Monad.Random
import Data.UUID

import Hrpg.Framework.Items.ItemDefinition

data Item = Item
    { instanceId :: UUID
    , definition :: ItemDefinition
    } deriving Show

createItem :: MonadRandom m => ItemDefinition -> m Item
createItem d = do
  uuid <- getRandom
  return (Item uuid d)
