@@ -55,7 +55,8 @@ fromValue (Object m) = {-# SCC "fromValue/Object" #-}
5555 one (k,v) = string k `mappend` Char8.fromChar ':' `mappend` fromValue v
5656
5757string :: T.Text -> Builder
58−string s = Char8.fromChar '"' `mappend` (quote s) `mappend` Char8.fromChar '"'
58+string s = {-# SCC "string" #-}
59+ Char8.fromChar '"' `mappend` quote s `mappend` Char8.fromChar '"'
5960 where
6061 quote q = case T.uncons t of
6162 Just (c,t') -> fromText h `mappend` escape c `mappend` quote t'