{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE StrictData #-}
module Dodge.Lock.Data
    where
import Dodge.Data
import Control.Lens

newtype Lock = Lock
    { _lkUnlocker :: Unlocker
    }

newtype Unlocker
    = ItemUnlocker Item

makeLenses ''Lock