Reify cloud drawing, move gust data

2022-07-23 19:09:54 +01:00
parent f4808676e2
commit 9d92cbfb9e
8 changed files with 56 additions and 25 deletions
@@ -6,6 +6,7 @@ import Control.Lens
 data HUDElement 
    = DisplayInventory {_subInventory :: SubInventory}
    | DisplayCarte
+  deriving (Eq,Ord,Show,Read)
 --  deriving (Eq,Ord,Show)

 data SubInventory 
@@ -15,6 +16,7 @@ data SubInventory
    | InspectInventory
    | LockedInventory
    | DisplayTerminal {_termID :: Int }
+  deriving (Eq,Ord,Show,Read)
 --  deriving (Eq,Ord,Show)

 data HUD = HUD
@@ -23,6 +25,7 @@ data HUD = HUD
    , _carteZoom    :: Float
    , _carteRot     :: Float
    }
+  deriving (Eq,Ord,Show,Read)
 makeLenses ''HUD
 makeLenses ''HUDElement
 makeLenses ''SubInventory