Commit before attempting to add concurrency to loop

src/Dodge/Data/Item/Location.hs

@@ -0,0 +1,17 @@
+{-# LANGUAGE StrictData #-}
+{-# LANGUAGE TemplateHaskell #-}
+module Dodge.Data.Item.Location where
+
+import Control.Lens
+import Data.Aeson
+import Data.Aeson.TH
+
+data ItemLocation
+    = InInv {_ipCrID :: Int, _ipInvID :: Int}
+    | OnTurret {_ipTuID :: Int}
+    | OnFloor {_ipFlID :: Int}
+    | InVoid
+    deriving (Eq, Show, Read, Ord)
+
+makeLenses ''ItemLocation
+deriveJSON defaultOptions ''ItemLocation