Cleanup

2022-07-26 10:22:55 +01:00
parent 0d479cba87
commit 5c8e786dfa
24 changed files with 191 additions and 158 deletions
@@ -0,0 +1,31 @@
+{-# LANGUAGE StrictData #-}
+{-# LANGUAGE DeriveGeneric #-}
+module Dodge.Data.Equipment.Misc
+    where
+import GHC.Generics
+import Data.Aeson
+data EquipSite
+    = GoesOnHead
+    | GoesOnChest
+    | GoesOnBack
+    | GoesOnWrist
+    | GoesOnLegs
+    | GoesOnSpecial
+    deriving (Eq,Ord,Show,Read,Generic)
+instance ToJSON EquipSite where
+    toEncoding = genericToEncoding defaultOptions
+instance FromJSON EquipSite
+data EquipPosition
+    = OnHead
+    | OnChest
+    | OnBack
+    | OnLeftWrist
+    | OnRightWrist
+    | OnLegs
+    | OnSpecial
+    deriving (Eq,Ord,Show,Read,Generic)
+instance ToJSON EquipPosition where
+    toEncoding = genericToEncoding defaultOptions
+instance FromJSON EquipPosition
+instance ToJSONKey EquipPosition
+instance FromJSONKey EquipPosition