Start to implement lock and key system

src/Dodge/Lock/Data.hs

@@ -0,0 +1,15 @@
+{-# LANGUAGE TemplateHaskell #-}
+{-# LANGUAGE StrictData #-}
+module Dodge.Lock.Data
+    where
+import Dodge.Data
+import Control.Lens
+
+data Lock = Lock
+    { _lkUnlocker :: Unlocker
+    }
+
+data Unlocker
+    = ItemUnlocker Item
+
+makeLenses ''Lock