vegowotenks/pretty-parse
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

feat: strict SerializerState

Browse source
This commit is contained in:
vegowotenks 2025-08-23 18:39:27 +02:00
parent 5e91f4b67e
commit b90e2f115b
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/Pretty/Serialize.hs
View file

@ -52,10 +52,10 @@ newtype Serializer a = Serializer (SerializerState -> (SerializerState, a))
deriving stock (Functor) deriving stock (Functor)
data SerializerState = SerializerState data SerializerState = SerializerState
{ builder :: Builder { builder :: !Builder
, indentation :: Indentation , indentation :: !Indentation
, increaseIndentation :: Indentation -> Indentation , increaseIndentation :: !(Indentation -> Indentation)
, currentFieldIndex :: Maybe Word , currentFieldIndex :: !(Maybe Word)
} }
instance Applicative Serializer where instance Applicative Serializer where