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

feat: unpacking

Browse source
This commit is contained in:
vegowotenks 2025-08-23 19:35:43 +02:00
parent cb99daeb49
commit 32b4b715ed
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/Pretty/Serialize.hs
View file

@ -57,10 +57,10 @@ type ContinuationSerializer a = (SerializerState -> (SerializerState, a))
type Prepends = [StrictText] -> [StrictText] type Prepends = [StrictText] -> [StrictText]
data SerializerState = SerializerState data SerializerState = SerializerState
{ builder :: Prepends { builder :: Prepends -- this laziness is important
, indentation :: !Indentation , indentation :: {-# UNPACK #-} !Indentation
, increaseIndentation :: !(Indentation -> Indentation) , increaseIndentation :: !(Indentation -> Indentation)
, currentFieldIndex :: !(Maybe Word) , currentFieldIndex :: {-# UNPACK #-} !(Maybe Word)
} }
instance Applicative Serializer where instance Applicative Serializer where