избежать строк туда-обратно в эсон

Question

У меня есть следующий код (который должен разобрать очень тривиальный { "url": "http://some.url.here/" } хэш):

import   Control.Applicative 
import qualified Data.ByteString  as B 
import   Data.ByteString.Char8 (pack) 


import   Data.Aeson   () 
import   Data.Aeson.Types 



newtype SetNextUrl = SetNextUrl B.ByteString 

instance FromJSON SetNextUrl where 
    parseJSON (Object v) = SetNextUrl <$> 
     (pack <$> v .: "url") 

Теперь обратите внимание, что я намекал, что «URL» имеет тип String, используя pack ... Это, конечно, вызовет некоторые накладные расходы на преобразование: от входного байтового столбца до [Char] и обратно ....

Вопрос: Как я могу попросить Эзона интерпретировать поле «url» как байтовой строки?

Answer 1

aeson использует Text внутренне для строковых значений, так что если вы используете Data.Text.Encoding.encodeUtf8 вы не будете иметь Text -> String -> ByteString преобразования, это будет просто идти прямо из Text -> ByteString (что IIRC довольно дешево)