diff options
Diffstat (limited to 'users/grfn/xanthous/src/Xanthous/Entities/Character.hs')
| -rw-r--r-- | users/grfn/xanthous/src/Xanthous/Entities/Character.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/users/grfn/xanthous/src/Xanthous/Entities/Character.hs b/users/grfn/xanthous/src/Xanthous/Entities/Character.hs index b86e9e17d3f9..d405cb40d3eb 100644 --- a/users/grfn/xanthous/src/Xanthous/Entities/Character.hs +++ b/users/grfn/xanthous/src/Xanthous/Entities/Character.hs @@ -6,7 +6,7 @@ module Xanthous.Entities.Character ( -- * Character datatype Character(..) , characterName - , inventory + , HasInventory(..) , characterDamage , characterHitpoints' , characterHitpoints @@ -163,7 +163,7 @@ data Character = Character deriving (ToJSON, FromJSON) via WithOptions '[ FieldLabelModifier '[Drop 1] ] Character -makeLenses ''Character +makeFieldsNoPrefix ''Character characterHitpoints :: Character -> Hitpoints characterHitpoints = views characterHitpoints' floor |