From 5b0649d2a8d618805a4df4cc6afc09cefef4fc1f Mon Sep 17 00:00:00 2001
From: Griffin Smith <grfn@gws.fyi>
Date: Sun, 13 Jun 2021 10:25:14 -0400
Subject: feat(xanthous): BangPattern all fields in Raws

This is generally just good practice for foundational data-types like
these

Change-Id: I88c5b6b73dad6665cf25837b8d6a9e0ea66f2b0b
Reviewed-on: https://cl.tvl.fyi/c/depot/+/3204
Reviewed-by: grfn <grfn@gws.fyi>
Tested-by: BuildkiteCI
---
 .../grfn/xanthous/src/Xanthous/Entities/RawTypes.hs  | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

(limited to 'users/grfn/xanthous/src')

diff --git a/users/grfn/xanthous/src/Xanthous/Entities/RawTypes.hs b/users/grfn/xanthous/src/Xanthous/Entities/RawTypes.hs
index 30039662f0..d280136ae8 100644
--- a/users/grfn/xanthous/src/Xanthous/Entities/RawTypes.hs
+++ b/users/grfn/xanthous/src/Xanthous/Entities/RawTypes.hs
@@ -70,8 +70,8 @@ hostile = friendly . involuted not
 --------------------------------------------------------------------------------
 
 data EdibleItem = EdibleItem
-  { _hitpointsHealed :: Int
-  , _eatMessage :: Maybe Message
+  { _hitpointsHealed :: !Int
+  , _eatMessage      :: !(Maybe Message)
   }
   deriving stock (Show, Eq, Ord, Generic)
   deriving anyclass (NFData, CoArbitrary, Function)
@@ -96,12 +96,12 @@ makeFieldsNoPrefix ''WieldableItem
 --------------------------------------------------------------------------------
 
 data ItemType = ItemType
-  { _name            :: Text
-  , _description     :: Text
-  , _longDescription :: Text
-  , _char            :: EntityChar
-  , _edible          :: Maybe EdibleItem
-  , _wieldable       :: Maybe WieldableItem
+  { _name            :: !Text
+  , _description     :: !Text
+  , _longDescription :: !Text
+  , _char            :: !EntityChar
+  , _edible          :: !(Maybe EdibleItem)
+  , _wieldable       :: !(Maybe WieldableItem)
   }
   deriving stock (Show, Eq, Ord, Generic)
   deriving anyclass (NFData, CoArbitrary, Function)
@@ -122,8 +122,8 @@ isWieldable = has $ wieldable . _Just
 --------------------------------------------------------------------------------
 
 data EntityRaw
-  = Creature CreatureType
-  | Item ItemType
+  = Creature !CreatureType
+  | Item !ItemType
   deriving stock (Show, Eq, Generic)
   deriving anyclass (NFData)
   deriving Arbitrary via GenericArbitrary EntityRaw
-- 
cgit 1.4.1