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)