Éviter chaîne aller-retour dans Aeson

Question

je le code suivant (qui est censé analyser un très trivial hachage { "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") 

Remarquez maintenant que je laissant entendre que « url » est de type String en utilisant pack ... Cela va bien sûr entraîner des frais généraux de conversion: de l'entrée ByteString à un [Char] et retour ....

Question: Comment puis-je demander à Aeson d'interpréter le champ "url" comme ByteString?

Answer 1

aeson utilise Text en interne pour les valeurs de chaîne, donc si vous utilisez Data.Text.Encoding.encodeUtf8 vous n'aurez pas la conversion Text -> String -> ByteString, il va juste aller directement à partir Text -> ByteString (ce qui est assez IIRC pas cher)