Work on inventory selection list

src/Dodge/Data/HUD.hs

@@ -5,13 +5,15 @@
 
 module Dodge.Data.HUD where
 
+--import Dodge.Data.SelectionList
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
 import Geometry.Data
 
 data HUDElement
-    = DisplayInventory {_subInventory :: SubInventory}
+    = DisplayInventory 
+        { _subInventory :: SubInventory}
     | DisplayCarte
     deriving (Eq, Ord, Show, Read) --Generic, Flat)
 

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