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

feat: refactor lineBreak

Browse source
This commit is contained in:
vegowotenks 2025-08-23 18:43:30 +02:00
parent a28f6abe5d
commit deecf2df4f
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/Pretty/Serialize.hs
View file

@ -92,7 +92,8 @@ emit t = Serializer $ \ state -> (state { builder = state.builder <> Builder.fro
lineBreak :: Serializer () lineBreak :: Serializer ()
lineBreak = do lineBreak = do
spaces <- indentation <$!> getSerializerState spaces <- indentation <$!> getSerializerState
emit $ "\n" <> Text.replicate (fromIntegral spaces) " " emit "\n"
emit $ Text.replicate (fromIntegral spaces) " "
recordField :: (Word -> Serializer ()) -> Serializer b -> Serializer b recordField :: (Word -> Serializer ()) -> Serializer b -> Serializer b
recordField labelField dumpField = do recordField labelField dumpField = do
@ -158,7 +159,7 @@ inDatatype name body = do
body body
inDatatypeOf :: Typeable a => a -> Serializer b -> Serializer b inDatatypeOf :: Typeable a => a -> Serializer b -> Serializer b
inDatatypeOf x s = let inDatatypeOf x s = let
!typeName = Text.pack . show . typeOf $ x !typeName = Text.pack . show . typeOf $ x
in inDatatype typeName s in inDatatype typeName s