Add files, move towards joining items in inventory

src/Dodge/Data/DoubleTree.hs

@@ -0,0 +1,17 @@
+{-# LANGUAGE DeriveGeneric #-}
+{-# LANGUAGE DeriveAnyClass #-}
+{-# LANGUAGE StrictData #-}
+{-# LANGUAGE TemplateHaskell #-}
+module Dodge.Data.DoubleTree
+  where
+
+import Control.Lens
+import Data.Aeson
+import Data.Aeson.TH
+
+
+data DoubleTree a = DT {_dtValue :: a,_dtLeft :: [DoubleTree a],_dtRight :: [DoubleTree a]}
+    deriving (Eq,Ord,Show,Read)
+
+makeLenses ''DoubleTree
+deriveJSON defaultOptions ''DoubleTree