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)
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