Cleanup

2022-07-26 10:22:55 +01:00
parent 0d479cba87
commit 5c8e786dfa
24 changed files with 191 additions and 158 deletions
@@ -1,30 +0,0 @@
-{-# LANGUAGE StrictData #-}
-{-# LANGUAGE DeriveGeneric #-}
-module Dodge.Equipment.Data 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