Make hud non-saveable

2022-12-29 01:10:09 +00:00
parent be41d51819
commit 7fc3b788b4
17 changed files with 57 additions and 59 deletions
@@ -6,9 +6,9 @@
 module Dodge.Data.HUD where

 --import Dodge.Data.SelectionList
+import Dodge.Data.Button
+import Dodge.Data.FloorItem
 import Control.Lens
-import Data.Aeson
-import Data.Aeson.TH
 import Geometry.Data

 data HUDElement
@@ -31,12 +31,10 @@ data HUD = HUD
    , _carteCenter :: Point2
    , _carteZoom :: Float
    , _carteRot :: Float
+    , _closeObjects :: [Either FloorItem Button]
    }
-    deriving (Eq, Ord, Show, Read) --Generic, Flat)
+--    deriving (Eq, Ord, Show, Read) --Generic, Flat)

 makeLenses ''HUD
 makeLenses ''HUDElement
 makeLenses ''SubInventory
-deriveJSON defaultOptions ''SubInventory
-deriveJSON defaultOptions ''HUDElement
-deriveJSON defaultOptions ''HUD