@@ -272,12 +272,7 @@ fromClause indent clause =
272272
273273fromId :: Id -> Builder
274274fromId (Id name) =
275− fromText name
276−
277−
278−fromText :: Text -> Builder
279−fromText txt =
280− byteString (Text.encodeUtf8 txt)
275+ Text.encodeUtf8Builder name
281276
282277
283278
@@ -288,10 +283,10 @@ fromVarDecl :: Builder -> VarDecl -> Builder
288283fromVarDecl indent (VarDecl (Id name) maybeExpr) =
289284 case maybeExpr of
290285 Nothing ->
291− fromText name
286+ Text.encodeUtf8Builder name
292287
293288 Just expr ->
294− fromText name <> " = " <> snd (fromExpr indent Whatever expr)
289+ Text.encodeUtf8Builder name <> " = " <> snd (fromExpr indent Whatever expr)
295290
296291
297292
@@ -494,7 +489,7 @@ fromProp prop =
494489
495490quoted :: Text -> Builder
496491quoted str =
497− "'" <> fromText str <> "'"
492+ "'" <> Text.encodeUtf8Builder str <> "'"
498493
499494
500495
@@ -505,7 +500,7 @@ fromLValue :: Builder -> LValue -> (Lines, Builder)
505500fromLValue indent lValue =
506501 case lValue of
507502 LVar name ->
508− (One, fromText name)
503+ (One, Text.encodeUtf8Builder name)
509504
510505 LDot expr field ->
511506 makeDot indent expr field
@@ -520,7 +515,7 @@ makeDot indent expr field =
520515 (lines, builder) =
521516 fromExpr indent Atomic expr
522517 in
523− (lines, builder <> "." <> fromText field)
518+ (lines, builder <> "." <> Text.encodeUtf8Builder field)
524519
525520
526521makeBracketed :: Builder -> Expr -> Expr -> (Lines, Builder)