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