feat: unpacking
This commit is contained in:
parent
cb99daeb49
commit
32b4b715ed
1 changed files with 3 additions and 3 deletions
|
@ -57,10 +57,10 @@ type ContinuationSerializer a = (SerializerState -> (SerializerState, a))
|
|||
type Prepends = [StrictText] -> [StrictText]
|
||||
|
||||
data SerializerState = SerializerState
|
||||
{ builder :: Prepends
|
||||
, indentation :: !Indentation
|
||||
{ builder :: Prepends -- this laziness is important
|
||||
, indentation :: {-# UNPACK #-} !Indentation
|
||||
, increaseIndentation :: !(Indentation -> Indentation)
|
||||
, currentFieldIndex :: !(Maybe Word)
|
||||
, currentFieldIndex :: {-# UNPACK #-} !(Maybe Word)
|
||||
}
|
||||
|
||||
instance Applicative Serializer where
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue