bin/gargantext-cbor2json/Main.hs

   1 import Prelude (IO, id, (.))
   2 import Codec.Serialise (deserialise)
   3 import Data.Aeson (encode)
   4 import qualified Data.ByteString.Lazy as L
   5 import Gargantext.API.Ngrams (NgramsRepo)
   6
   7 main :: IO ()
   8 main = L.interact (encode . (id :: NgramsRepo -> NgramsRepo) . deserialise)