From b90e2f115b8add713e3668216eca9382c1138f98 Mon Sep 17 00:00:00 2001 From: VegOwOtenks Date: Sat, 23 Aug 2025 18:39:27 +0200 Subject: [PATCH] feat: strict SerializerState --- src/Pretty/Serialize.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/Pretty/Serialize.hs b/src/Pretty/Serialize.hs index 6ec5f5c..95e1c16 100644 --- a/src/Pretty/Serialize.hs +++ b/src/Pretty/Serialize.hs @@ -52,10 +52,10 @@ newtype Serializer a = Serializer (SerializerState -> (SerializerState, a)) deriving stock (Functor) data SerializerState = SerializerState - { builder :: Builder - , indentation :: Indentation - , increaseIndentation :: Indentation -> Indentation - , currentFieldIndex :: Maybe Word + { builder :: !Builder + , indentation :: !Indentation + , increaseIndentation :: !(Indentation -> Indentation) + , currentFieldIndex :: !(Maybe Word) } instance Applicative Serializer where