Work on inventory selection list

src/Dodge/Data/SelectionList.hs

@@ -1,3 +1,5 @@
+{-# LANGUAGE DeriveGeneric #-}
+{-# LANGUAGE DeriveAnyClass #-}
 {-# LANGUAGE TemplateHaskell #-}
 {-# LANGUAGE StrictData #-}
 module Dodge.Data.SelectionList where
@@ -6,6 +8,8 @@ import Picture.Data
 import Control.Lens
 import Data.Set (Set)
 import Dodge.Data.CardinalPoint
+import Data.Aeson
+import Data.Aeson.TH
 
 data ListDisplayParams = ListDisplayParams
     { _ldpPosX :: Float
@@ -43,3 +47,4 @@ data SelectionItem a = SelectionItem
 makeLenses ''ListDisplayParams
 makeLenses ''SelectionList
 makeLenses ''SelectionItem
+deriveJSON defaultOptions ''SelectionItem